Select Code to Download

#!/usr/bin/perl
use IO::Socket;
...
    }
    close $client;
}

$ telnet localhost 9999
Trying 127.0.0.1...
...
Escape character is '^]'.

0d 0a

#!/usr/bin/perl -w
use strict;
...

my $r = $t->getline;
print $r;

$ ./890020_c.pl
0d 0a