#!/usr/bin/perl use warnings; use strict; use HTTP::Request::Common; use LWP::UserAgent; use Data::Dumper; my %fields = ( "LeagueID" => "9\r\n", "GameDate" => "3-2-2010\r\n", "Season" => "2009-2010\r\n", "Refresh" => "false\r\n", "LastUpdateTime" => "01-01-1900\r\n", "type" => "Matchups\r\n", "RefreshStartTime" => "11-2-2010-1268372427240\r\n", "Week" => "\r\n", "conferenceID" => "", ); my $robot = LWP::UserAgent->new; use HTTP::Request::Common; my $url = 'http://scores.covers.com/ajax/SportsDirect.Controls.LiveScoresControls.Scoreboard,SportsDirect.Controls.LiveScoresControls.ashx?_method=UpdateScoreboard&_session=no'; my $post = POST $url , \%fields; # $post would be url-encoded # 'content-type' => 'application/x-www-form-urlencoded', # print Dumper $post; my $content = qq{LeagueID=9\r\nGameDate=3-2-2010\r\nSeason=2009-2010\r\nRefresh=true\r\nLastUpdateTime=01-01-1900\r\ntype=Matchups\r\nRefreshStartTime=12-2-2010-1268408433293\r\nWeek=\r\nconferenceID=}; # your target url appears to accept either of these my $post2 = POST $url, Content => $content; #my $post2 = POST $url, 'content-type' => 'text/plain', Content => $content; print Dumper $post2; print Dumper $robot->request( $post2); #### '_content' => '{\'LeagueID\':9,\'League\':\'NBA\',\'GameDate\':\'3-2-2010\',\'Season\':\'2009-2010\',\'Week\':\'\',\'GameResponseList\':[],\'LastUpdateTime\':\'01-01-1900\',\'RefreshStartTime\':\'12-2-2010-1268408433293\',\'Refresh\':true,\'PageType\':\'Matchups\',\'ScoreBoardHTML\':\'
\\r\\n \\r\\n
Final
Boston at Detroit