my $host = "hostname";
my $ssh = Net::SSH::Perl->new($host, debug => "1");
$ssh->login();
my($out, $err, $exit) = $ssh->cmd("ps ux | awk '/prozessname\.sh/ && !/awk/ {\$2}'");
$ssh->cmd("kill -9 $out");