sub random_string {
  my $length = shift || 2;
  my @chars = ('a'..'z','A'..'Z',0..9);
  join ('',map{ $chars[ rand() * @chars  ] } (1..$length));
}