use strict;
use Config;
use IO::Socket::INET;
use IO::Select;

my $SocketHandle;
my $buf;
my $binFile  = "<e:/test.bin";
my $Status;
my $SelHandle;
my @Readable;

unless (@ARGV == 2) { die "Usage: GetStatus.pl remotehostname port" }

$SocketHandle = IO::Socket::INET->new(PeerAddr =>  $ARGV[0],
                                      PeerPort =>  $ARGV[1],
                                      Proto    =>  "tcp",
                                      Timeout  =>  10,
                                      Type     =>  SOCK_STREAM) or die "cannot connect: $!\n";
$SocketHandle->autoflush(1);
$SocketHandle->blocking(0);

open(FileHandle, $binFile)or die "cannot open file: $!\n";
binmode(FileHandle);

while (read(FileHandle, $buf, 28))
{
    $SocketHandle->send($buf);
}

$|=1;

$SelHandle = IO::Select->new($SocketHandle);

while (@Readable = $SelHandle->can_read)
{
        $SocketHandle->recv($Status,1);
        print($Status);
}

close FileHandle;
close $SocketHandle;