use LWP::UserAgent; my $ua = LWP::UserAgent->new(agent=>'Mozilla/5.0', timeout=>60); my $re = $ua->post( "対象URL", [name1=>'value1', name2=>'value2'], Referer => "リファラーURL");LWPは手軽で便利。

今日も楽しくPerlをいじっていたら、実行中に、 Invalid value for shared scalar at ... こんなエラー。