my $x;
...
$x = ...;

##</code><code>##

...
my $x = ...;

##</code><code>##

open(my $fh, '>', '/tmp/data.txt')
    or die("Can't create file /tmp/data.txt: $!\n");
print $fh $res->content;
close($fh); 

##</code><code>##

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

##</code><code>##

my $res = $ua->get('http://SOMEURLHERE');