$mess = HTTP::Message->new();
$mess->encode(gzip,deflate);
my $ua = LWP::UserAgent->new(timeout=>10);
$mess = HTTP::Message->new();# Again
$mess->encode(gzip,deflate); #   ?

##</code><code>##

marto@Marto-Desktop:~/code/perlmonks$ perl -c junk.pl 
Global symbol "$mess" requires explicit package name (did you forget to declare "my $mess"?) at junk.pl line 6.
Global symbol "$mess" requires explicit package name (did you forget to declare "my $mess"?) at junk.pl line 7.
Global symbol "$mess" requires explicit package name (did you forget to declare "my $mess"?) at junk.pl line 9.
Global symbol "$mess" requires explicit package name (did you forget to declare "my $mess"?) at junk.pl line 10.
Global symbol "$mess" requires explicit package name (did you forget to declare "my $mess"?) at junk.pl line 11.
Global symbol "$dbh" requires explicit package name (did you forget to declare "my $dbh"?) at junk.pl line 14.
Global symbol "$dbh" requires explicit package name (did you forget to declare "my $dbh"?) at junk.pl line 14.
Global symbol "$dbh" requires explicit package name (did you forget to declare "my $dbh"?) at junk.pl line 15.
Global symbol "@row" requires explicit package name (did you forget to declare "my @row"?) at junk.pl line 18.
Global symbol "@row" requires explicit package name (did you forget to declare "my @row"?) at junk.pl line 18.
junk.pl had compilation errors.