Select Code to Download

#!/usr/bin/perl

...
    $resp = <$sock1>;  print $resp;
    exit;
}

sock1         = IO::Socket::INET=GLOB(0xd9327c)
fileno(sock1) = 4
...
';
DUMP END
bye

sock1         = IO::Socket::INET=GLOB(0xd93504)
fileno(sock1) = 4
...
$VAR1 = 'quit
';
DUMP END