#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $ua;
my $req;
my $res;

$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

#REQUEST

$req = HTTP::Request->new(GET =>'http://SOMEURLHERE');

#PASS REQUEST

$res = $ua->request($req);

#GET RESULTS


if($res->is_success)
{
   print $res->content;
}
else
{
   print "No response\n";
   print $res->status_line . "\n";
}

##</code><code>##

open(MYFILE, '/tmp/data.txt');
print MYFILE $res->content;
close(MYFILE); 

##</code><code>##

my $returnData = $res->content;
open(MYFILE, '/tmp/data.txt');
print MYFILE $returnData;
close(MYFILE);