{
    open my $foo, '|-', "/usr/bin/write $user $tty"
        or die $!;
    print $foo 'message here';
    close $foo or die $!;
}