Select Code to Download

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $result = get("http://server.com/document?param=value");

#!/usr/bin/perl -w
use strict;
...
my $req = HTTP::Request->new(POST => $url);
my $resp = $ua->request($req);
print STDERR $resp->error_as_HTML() if $resp->is_error();