use IO::Socket;

$server = $ARGV[0];
$port = 80;

$socket = IO::Socket::INET->new(
Proto => 'tcp',
PeerAddr => $server,
PeerPort => $port,
Timeout => 10,
);
unless($socket) {
die("Could not connect to $server:$port");
}
$socket->autoflush(1);
$socket->sockopt(25, "eth0") || die "error\n";