use strict;
use constant id_length => 128;
 
foreach (0..3) {
  printf "%s\n",genUniqueID();
}
 
exit(0);
 
sub genUniqueID {
  my @alpha=('A'..'Z','a'..'z','0'..'9');
  my $buffer="";
 
  foreach (1.. id_length) {
    $buffer = $buffer . $alpha[rand($#alpha+1)];
  }
  return $buffer;
}
 
__END__