my $ua = LWP::UserAgent->new();
my $response = $ua->get("$url");
 
if ($response->is_success) {
    my $content = $response->content;
    open (OUTPUT, ">out.txt") or die "Cannot open the output file: $!";
    print OUTPUT "$content";
    close (OUTPUT) or die "Cannot close the output file: $!";
}
	
else {
    die $response->status_line;
}