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