$login_url = url 'https://webbroker1.tdwaterhouse.com/TD/Waterhouse/ie4x/logonForm.asp';
$ua = LWP::UserAgent->new;
my $login_req = GET $login_url;
my $login_res = $ua->request($login_req);
my $tb = HTML::TreeBuilder->new;
$tb->parse($login_res->content);
my @forms = @{$tb->extract_links(qw(FORM))};
my $f = HTTP::Request::Form->new($forms[0][1], $login_url);
$f->dump;