my $result = $a->get($start_page);

#open PAGE, ">top.html" or die "Could not open top.html:$!\n";
#print PAGE $result->as_string;
#close PAGE;
#die "PAGE written\n";

my $link = $a->find_link(text => 'Login')
    or die "Found no Login link\n";