use strict;
use warnings;

# 10 Passwoerter ausgeben
print rand_pwd(), "\n" for (1..10);

sub rand_pwd
  # Zufalls-Passwort generieren, 8 bis 12 Zeichen
  { 
  my $pwd = '';
  while ($pwd !~ /[A-Za-z]/ && $pwd !~ /[0-9]/)
    { 
    $pwd = join
         '',
         map {('0'..'9','_','!','.','-','A'..'Z','a'..'z')[rand(67)]} 
                1 .. (8 + rand(4) + 1);
    }
  return $pwd;
  }