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