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

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

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();

open(FileHandle, $binFile);
binmode(FileHandle);

while (read(FileHandle, $buf, 28))
{
    print $SocketHandle $buf;
}

$|=1;
while (read ($SocketHandle,$Status,1))
{
    print($Status);
}

close FileHandle;
close $SocketHandle;