Select Code to Download

use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET SOL_SOCKET inet
+_aton inet_ntoa sockaddr_in );

...
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);

use IO::Socket;

...
}
$socket->autoflush(1);
$socket->sockopt(25, "eth0") || die "error\n";