sub random_string { my $length = shift; my @chars = ( 'A' .. 'Z', 'a' .. 'z', '0' .. '9' ); my $ret; for ( 1 .. $length ) { $ret .= $chars[ int rand @chars ]; } return $ret; }