#!/usr/bin/perl ‐w
 use Digest::MD5 qw(md5 md5_hex md5_base64);
 
 sub reduce
{ 
 my $what = shift;
  for ($res='', $i=0; $i<8; $i++)
  { $res.=chr(hex(substr($what,$i*2,2)) % 96 + 32)
  }
 return $res;
}
 $passwort = "Linux";
 
 for 
 ($count=0; $count < 10; $count++)
  {
 
 print $passwort." ‐> ";
 $hash = md5_hex($passwort);
 $passwort = reduce($hash);
 print $hash." ‐> ";
  }
 print "\n";