also bei mir funktionierts so leider nicht:

#!/usr/bin/perl


open(my $ssh, "| ssh host");
print $ssh "echo Hallo";
print $ssh "cd /HOME/host/host";
print $ssh "touch itworks.txt"
close($ssh) or die "$!";