open(DICT,"/usr/dict/words");
while(<DICT>) {
     chomp;
     my $guess=crypt($_,$_);
     # insert some LWP code here to attack
     # the web page
     if ($it_worked) {
         print "$user: crypted password is $guess\n";
     }
}

close DICT;