Ticket #45: as.pl

File as.pl, 244 bytes (added by brian, 2 years ago)

Simple Perl script which generates "Invalid parameter" debug msgs

Line 
1 use strict;
2 use URI;
3 use LWP;
4
5 my $ua = LWP::UserAgent->new;
6 my $res = $ua->get(URI->new("http://www.ActiveState.com"));
7
8 if ($res->is_success) {
9     print $res->header("Title"), "\n";
10 }
11 else {
12     print $res->status_line, "\n";
13 }