use warnings;
    use LWP::UserAgent;


    my $UserAgent = new LWP::UserAgent;

    my $Request = new HTTP::Request ('get',
    'www.website.com');
 
    my $Response = $UserAgent->request ($Request);

    open (FILE, ">/strawberry/perl/file.txt");
    print FILE $Response->{_content};
    close (FILE);