use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET SOL_SOCKET inet_aton inet_ntoa sockaddr_in );

$host="www.cnet.com";
$port="80";

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
setsockopt(SOCK, SOL_SOCKET, 25 , pack("Z*","eth0")) || die "error\n";
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);