sub RandomString {
    my $len = shift || 15;
    my @chars = ( "A".."Z", "a".."z", 0..9);
    return join '', map { $chars[ rand @chars ] } 1..$len;
}