oh nevermind...did it by myself...thank you anyways for the idea.
#!/usr/bin/perl
@alphabet = ( 'a' .. 'z', 'A' .. 'Z', '0' .. '9', '!', '_', '-' );
foreach $a (@alphabet)
{
print $a."\n";
foreach $b (@alphabet)
{
print $a.$b."\n";
foreach $c (@alphabet)
{
print $a.$b.$c."\n";
foreach $d (@alphabet)
{
print $a.$b.$c.$d."\n";
}
}
}
}