#!/usr/bin/perl

sub generate_pass
{
 my @chars=('a'..'z','A'..'Z','0'..'9');
 my $pass;
 foreach (1..12)
 {
   $pass.=$chars[rand @chars];
 }

 return $pass;
}

my $pass = &generate_pass;

print ("$pass");