#!/usr/bin/perl
use strict;
use warnings;

open my $out,'| ssh server cat ">>" /tmp/log.txt' or die "open failed: $!";
print $out "hello world\n" for 1..10;
close $out;