What you should probably do if you want to debug it yourself is break the line into two and do the debugging in the middle:

my $request = <$client>;
# debug line
print "Degbug: $request\n";
# end of debug line
if ( $request ) 
{
...
[download]

Dingus