$ua->cookie_jar(HTTP::Cookies->new(file => " 1)); $ua->timeout(300); my $req = POST 'https:///login.cgi', [cdsid =>$$secinfo{USERID}, pw =>$$secinfo{PWD}, ]; my $res = $ua->request($req); unless ($res->is_success) { print "Login Failed: : ". $res->status_line . "\n"; return 0; } my @urls = qw(); foreach my $url(@urls){ my $req = HTTP::Request->new(GET=>$url); my $res = $ua->request($req); unless ($res->is_success) { return 0; } }