use strict; use LWP::UserAgent; use WWW::Mechanize; use HTML::TokeParser; use HTTP::Cookies; use HTTP::Request; use Data::Dumper; my $user = 'MyUserName'; my $pass = 'MyPassword'; my $dv_data = ''; my $output = ''; # Set up cookie jar my $cookie = HTTP::Cookies->new(file => 'cookie',autosave => 1,); my $mech = WWW::Mechanize->new(cookie_jar => $cookie, autocheck => 1,); my $uri = URI->new( 'https://wwws.izone.com/apps/LogIn' ); $mech->get( $uri ); die $mech->response->status_line unless $mech->success; $output = $mech->content; for ($output =~ /name=\"DV_DATA\" type=\"hidden\" VALUE=\"(.*?)\">/smi){ $dv_data = $1; } $mech->form_name( 'li' ); $mech->set_fields( USERID => $user, PASSWORD => $pass, DV_DATA => $dv_data ); $mech -> submit(); print $mech->content; #### Not Found The requested URL /cgi-bin/apps/u/Home was not found on this server. Apache/2.0.50 (Fedora) Server at www.server.com Port 80 Not Found The requested URL /cgi-bin/apps/u/EquityTrade was not found on this server. Apache/2.0.50 (Fedora) Server at www.server.com Port 8