gistfile1.txt

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;
}