Select Code to Download

BEGIN { $^W = 1; }
use IO::Socket;
...
    my $req = shift @_;
    print $s "iBad Request: $! \tfake\t(NULL)\t0" . $/;
}