Help for this page

Select Code to Download

Select or download this

print STDOUT "\nEnter name: ";
$name = <STDIN>;
chomp $name;

Select or download this

use Text::Soundex;
use WWW::Mechanize;
...
die "can't submit form!" 
  unless $mechObject->success && 
          $mechObject->content =~ /Your Last Name/i;