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

##</code><code>##

use Text::Soundex;
use WWW::Mechanize;
#use MakeRegex;
$DEBUG = true;
$SOUNDEX = 0;

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

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

my $url = 'http://www.ancestry.com/';
my $mechObject = WWW::Mechanize->new();

$mechObject->get($url);
die "can't get page!" 
  unless $mechObject->success &&
  		$mechObject->content =~ /Your First Name/i;
  
die "can't find form!"
  unless $mechObject->form_number(2);

my @values = ($firstname, $lastname, [option => 'M']);
die "couldn't fill out form!"
  unless $mechObject->set_visible(@values) == 3;

$mechObject->submit;
die "can't submit form!" 
  unless $mechObject->success && 
  		$mechObject->content =~ /Your Last Name/i;