Select Code to Download

use HTTP::Request;
use LWP::UserAgent;
...
$req->referer('http://localhost/');
                                                                      
+          
my $response = $agent->request($req);