$browser = LWP::UserAgent->new();
$browser->agent("Mozilla/4.76 [en] (Win98; U)");

@sports= qw(ALL);

open PLAYERS, "players.txt" or die;

sub urldefine {																		
	$url= URI-> new('http://www.wagerline.com/showprofile.asp?');						
	$url->query_form(
	'Member' => $_[0],
	'Sport' => "$_[1]",);
}

while (<PLAYERS>) {
	chomp $_;
	push (@plyrs, $_); 
}

	open DUMP, ">dump.txt" or die;
	open STATS2, ">>stats2.txt" or die;
for ($i=17022; $i <= 19000; $i+=1) {
	@sports=();
	@urlfeed = ($plyrs[$i], "all");
	urldefine @urlfeed;
	$page=get("$url");
		for my $a (split "&Spo", $page) {
			if ($a =~ /rt=(\w*)"/g) {
				push (@sports, $1);
			}
		}
for ($j=0; $j <= $#sports; $j+=1) {	
		print ".";
		@urlfeed = ($plyrs[$i], $sports[$j]);
		urldefine @urlfeed;
		$page=	get("$url");
			print STATS2 "Player\t", "Sport\t", "Season\t", "BetType\t";
			print STATS2 "Record\t", "Wins\t", "Losses\t", "Ties\t", "Percent\t";
			print STATS2 "Units\t", "Rank\t", "TotalRank\n";
				for my $a (split "/td>", $page) {
					if ($a =~ /al">([AC]\w{2})/m) { $year="$1"}
					if ($a =~ /al">(\d{4})/m) { $year="$1"}
					if ($a =~ /"2">([AO].*?)</m) {
						print STATS2 $plyrs[$i], "\t", $sports[$j], "\t", $year.
						"\t", $1. "\t";
					}
					if ($a =~ /18%"><SMALL>([^<].*?)</m) {
						print STATS2 $1, "\t";	
						if ($1 =~ /(\d+)-(\d+)-(\d+)/m) {print STATS2 $1, "\t", $2, "\t", $3, "\t"}
						if ($1 eq "N/A") {print STATS2 $1, "\n"}
					} 
						elsif ($a =~ /18%"><SMALL>.*?>(\d*)\s\w{2}\s(\d*)/m){
							print STATS2 $1, "\t", $2, "\n";
						}
				}
}
print "Finished Player #", $i+1,": ", $plyrs[$i], "\n"; 
}