The line numbers you've posted errors at don't exist in the code you've posted. The sensible approach is to post a SSCCE when asking for help.

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

Why are you doing this twice? Why not take steps to fix problems before posting code here? With strict/warnings:

marto@Marto-Desktop:~/code/perlmonks$ perl -c junk.pl 
Global symbol "$mess" requires explicit package name (did you forget t
+o declare "my $mess"?) at junk.pl line 6.
Global symbol "$mess" requires explicit package name (did you forget t
+o declare "my $mess"?) at junk.pl line 7.
Global symbol "$mess" requires explicit package name (did you forget t
+o declare "my $mess"?) at junk.pl line 9.
Global symbol "$mess" requires explicit package name (did you forget t
+o declare "my $mess"?) at junk.pl line 10.
Global symbol "$mess" requires explicit package name (did you forget t
+o 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.
[download]

Update: also it's good form to mark significant updates to a post.