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);

##</code><code>##

    use warnings;
    use strict;

    my $file = "/strawberry/perl/website.txt";
    open (FH, "< $file") or die "Can't open $file for read: $!";
    my @lines = <FH>;
    print @lines;
    close FH or die "Cannot close $file: $!";

##</code><code>##

my $Request= new HTTP::Request ('get','@lines')`or
 my $URL=get('@lines')