#!/usr/gnu/bin/perl --
#ident	"@(#)mail:common/cmd/mail/config/doUucpTcp	1.1"
if(open(UUCPTCP, "</etc/mail/UucpTcp.systems")) {
    while(<UUCPTCP>) {
	chop;
	$uucpTcpSystems{$_} = 1;
	}

    close(UUCPTCP);
    }

if($uucpTcpSystems{$ARGV[0]}) {
    shift(@ARGV);
    exec(@ARGV);
    }

exit(1);
