use strict;
use warnings;

##</code><code>##

Global symbol &quot;@lines&quot; requires explicit package name at - line 8.
Global symbol &quot;$out&quot; requires explicit package name at - line 10.
Global symbol &quot;@lines&quot; requires explicit package name at - line 10.
Global symbol &quot;@lines&quot; requires explicit package name at - line 12.
BEGIN not safe after errors--compilation aborted at - line 13.
[Fri Feb 13 01:48:06 2004] -: Global symbol "@lines" requires explicit package name at - line 8.
[Fri Feb 13 01:48:06 2004] -: Global symbol "$out" requires explicit package name at - line 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.

##</code><code>##


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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

if ($response->is_success 
    and ($response->content_type eq 'text/html')) {
  $str = $response->content;
}
else {
  $str = "Content type was $response->content_type"
     unless ($response->content_type eq 'text/html');
  $str = $response->status_line
     unless ($response->is_success);
}