Select Code to Download

use strict;
use warnings;

Global symbol "@lines" requires explicit package name at - l
+ine 8.
Global symbol "$out" requires explicit package name at - lin
+e 10.
...
[Fri Feb 13 01:48:06 2004] -: Global symbol "@lines" requires explicit
+ package name at - line 10.
[Fri Feb 13 01:48:06 2004] -: Global symbol "@lines" requires explicit
+ package name at - line 12.
[Fri Feb 13 01:48:06 2004] -: BEGIN not safe after errors--compilation
+ aborted at - line 13.

$request = HTTP::Request->new('GET', 'http://www.bom.gov.au/cgi-bin/wr
+ap_fwo.pl?IDS10034.txt');
$res = $ua->request($request);

my $request = $user_agent->get('http://www.bom.gov.au/cgi-bin/wrap_fwo
+.pl?IDS10034.txt');

if ($res->is_error) {
  $str = $res->message;
} else {
  $str = $res->content;
}

if ($response->is_success 
    and ($response->content_type eq 'text/html')) {
...
  $str = $response->status_line
     unless ($response->is_success);
}