#!/usr/bin/perl -w
#
# recipient format:
#    userv HOST USER SERVICE

use strict;
die unless @ARGV==4;
our ($msg,$host,$user,$service) = @ARGV;

if (open PIPE, "|-", "ssh", $host, "userv", "-t", "2", $user, $service) {
    print PIPE "$msg\n";
    close PIPE;
}

die $! if $? != 0;