#!/opt/perl-5.8.0/bin/perl

use IO::Socket::INET;

$|=1;

$remote_host="biavl01.baplc.com";
$remote_port=1344;

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                               PeerPort => $remote_port,
                               Proto    => "tcp",
                               Type     => SOCK_STREAM)
        or die "Couldn't connect to $remote_host:$remote_port : $!\n";
die "no socket" if ! defined $socket;

# get text of respmod
open(FH,"/home/u752359/respmod.txt");
undef $/;
$respmod=<FH>;

# send respmod over the socket,
print $socket $respmod;

# get response
$|=1;
@resp=<$socket>;
print @resp;

close($socket);