use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new( GET => $url );

$req->header(REFERER => "http://faked.referer.invalid");
$ua->request($req);