#!/usr/bin/perl -w

use strict;

my $prefix = shift;

if (!$prefix)
{
    die "Usage: $0 prefix ...\n";
}


foreach my $v (qw(PROTO TCPLOCALIP TCPLOCALPORT TCPLOCALHOST TCPREMOTEIP
		  TCPREMOTEPORT TCPREMOTEHOST TCPREMOTEINFO))
{
    if ($ENV{$prefix.$v})
    {
	$ENV{$v}=$ENV{$prefix.$v};
    }
}

exec(@ARGV) or die "exec error: $!\n";