use IO::Socket;

$new = IO::Socket::INET->new(PeerAddr=>"$aix", PeerPort=>"514", Proto=>"tcp");
print $new "$localuser.$remoteuser.$command";
while (<$new>) {
 print;
}
close $new;