LWPで楽してPOSTしたいけど、動的にリファラーもつけたい！

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は手軽で便利。