my @website = split "", $ARGV[0];
my $num = @chars = (a..z, A..Z, 0..9);
my $length = scalar(@website);
my $print = "";
my $zaehl = "";

foreach(@website) {
$print = $print.$website[$zaehl];
&wdh($length-1, $print);
$length--;
$zaehl++;
}


sub wdh {
for ($i=0;$i<20;$i++) {
	system('clear');
	print @_[1];
	for ($wd=0;$wd < @_[0];$wd++) {
		$passwd = join '', @chars[eval "int(rand($num-1))," x 1];
	print $passwd;
	}
print "\n";
           }
}