Help for this page

Select Code to Download


  1. or download this
        use warnings;
    use LWP::UserAgent;
...
    open (FILE, ">/strawberry/perl/file.txt");
    print FILE $Response->{_content};
    close (FILE);
  2. or download this
        use warnings;
    use strict;
...
    my @lines = <FH>;
    print @lines;
    close FH or die "Cannot close $file: $!";
  3. or download this
    my $Request= new HTTP::Request ('get','@lines')`or
 my $URL=get('@lines')