use WWW::Mechanize; 
my $mech = WWW::Mechanize->new(); 
$url = "http://app001.us1.darkfallonline.com/sf/fwd"; 
$mech->get( $url ); 
$mech->set_visible( $username, $password );