#!/usr/bin/perl -wd

use strict;

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

my $response = $mech->get( "https://secure.ancestry.com/login" );

    $mech->submit_form(
        form_number => 1,
        fields    => {  Username  => 'MyUserName',
                        Password => 'MyPassword',
                        ReturnUrl => ''
        },
    );

print $response->as_string( );