FCPK

#!/usr/bin/perl
 
use strict;
use warnings;

use Socket;
use IO::Handle;

my $sock;
socket($sock, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "socket: $!";
#IO::Handle::blocking($sock, 1);
connect($sock, sockaddr_in(3333, inet_aton("localhost"))) || die "connect: $!";$|=1;

my $line;
while (defined($line = <$sock>)) { print $line; }

close ($sock) || die "close: $!";