I think I recognise that code - its popfile or something derived from it. You might try contacting the popfile developer(s) if you are trying to use popfile itself.

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

---

Enter any 47-digit prime number to continue.