#!/usr/bin/perl -w

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

my $peeraddr = 'pa02sbiz04';
my $peerport = 13782;
my $proto = 'tcp';
my $localport = 1037;

my $sock = IO::Socket::INET->new(PeerAddr => $peeraddr,
		PeerPort => $peerport,
		Proto => $proto,
		LocalPort => $localport)
	or die "Can't bind: $@\n";

while (<$sock>) {
	print "$_";
	sleep 1;
}