use HTTP::Response;
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies; 
$login = "username";
$password = "password";
$action = "http://login.yahoo.com/config/login";
$cookie_file = "d:/perl/yahoo_cookie.txt";
$cookie_jar = HTTP::Cookies->new(file=>"$cookie_file");
$ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.5; Windows NT)");
$ua->timeout(600);
$ua->cookie_jar(HTTP::Cookies->new(file => "$cookie_file", autosave => 1));
$response= $ua->request(POST $action,[
'.tries'=>"1",
'.done'=>"http://baseball.fantasysports.yahoo.com/baseball",
'.src'=>"",
'lg'=>"us",
'.intl'=>"us",
'login'=>$login,
'passwd'=>$password,
'.chkp'=>"Y"]);
$cookie_jar->extract_cookies($response);
$content = $response->content();

print $response->as_string;

$team1 =    "http://baseball.fantasysports.yahoo.com/baseball/show?page=roster&lid=23413&mid=2";
use LWP::Simple;
$content2 = get($team1);
print $content2;