my $string;
for (0..7) { $string .= chr( int(rand(25) + 65) ); }

print "$string\n";