#!/usr/bin/perl -w

use strict;
use IO::Socket;
use FHForwarder;

my ($remotehost,$remoteport,$localhost,$localport) = @ARGV;
die "Usage: $0 remotehost remoteport localhost localport"
	unless(defined($remotehost) && defined($remoteport) &&
		defined($localhost) && defined($localport));

my $remote_sock = new IO::Socket::INET(
	PeerAddr => $remotehost,
	PeerPort => $remoteport
) or die "Connection to remote_sock failed: $!";

my $local_sock = new IO::Socket::INET(
	PeerAddr => $localhost,
	PeerPort => $localport
) or die "Connection to local failed: $!";

fhforwarder($remote_sock,$remote_sock,$local_sock,$local_sock) or
	die "forwarding failed";

exit 0;