use LWP::Simple;

#use strict;
#use warnings;
my $url = 'http://website';

# get the HTML text
my $content = get($url);


if (not defined $content) 
{
	print "URL is not available.\n";
	
}
else
{
	print "Fetched data.\n";
	
}


open(TMPFILE,">cony.html") || die "\nwrite failed: $!";
print TMPFILE "$content";
close TMPFILE;
print "$content\n";