-my ($clanmatch) = map { $_ && qr/\A(?:$_)\z/i } join '|', @{$clanmatches};
-
-my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
-my $bliz = LWP::Authen::OAuth2->new(%auth,
- token_endpoint => 'https://eu.battle.net/oauth/token',
- request_required_params => [qw( client_id client_secret grant_type )],
-);
-$bliz->request_tokens(grant_type => 'client_credentials');