Help for this page

Select Code to Download

Select or download this

Escape character is '^]'.
cla;ccc}Q&P !cmcz«¦¢º€¡¦¢€ccmcz«¦¢º€¡¦¢€ccmcz«¦¢º€¡¦¢€ccmcz«¦¢º€¡¦¢€cc
+mcz«¦¢º€¡¦¢€ccmcz«¦¢º€¡¦¢€ccmcz«¦¢º€¡¦¢€c^]
telnet> quit

Select or download this

#!/usr/bin/perl
use IO::Socket::INET;
...
 
sleep (10);
$socket->close();