#!/usr/bin/perl

$uppercase = join '', $uppercase, A..Z;
$lowercase = join '', $lowercase, a..z;
$numbers = join '', $numbers, 0..9;

for ($i = 0; $i < 3; $i++) {
  $tmp = join '', $tmp, substr $uppercase, int rand length $uppercase, 1;
  $tmp = join '', $tmp, substr $lowercase, int rand length $lowercase, 1;
  $tmp = join '', $tmp, substr $numbers,  int rand length $numbers, 1;
};

while (length $tmp) {
  $password = join '', $password, substr $tmp, int rand length $tmp, 1, '';
};

print "Password: $password\n";