my $a = int rand(9);
my $a1 = int rand(9);
my $agent = "Mozilla/1.$a.$a1 (compatible; MSIE; NT 6.0 )";