$cmd= "ls -l";
#$cmd= "id";
$ssh = Net::SSH::Perl->new($server, protocol=>2);
$ssh->login( $user, $passwort );
try {
 #print "Vor cmd\n";
 ($v_stdout, $v_stderr, $v_exit) = $ssh->cmd($cmd);
 #print "Nach cmd\n";
 if ($target eq 'quelle' ) {
  $writedb = `./writedb2.pl 10 \"login_quelle\" 0 \"$intf_name\" \"login.pl\" \"$mail\"`;
  $writedb = `./writedb2.pl 0 4 \"login.pl\" \"$server\"`; # Alles OK
 } else {
  $writedb = `./writedb2.pl 10 \"login_ziel\" 0 \"$intf_name\" \"login.pl\" \"$mail\"`;
  $writedb = `./writedb2.pl 0 4 \"login.pl\" \"$server\"`;
 }

} except {
 $writedb = `./writedb2.pl 0 3 \"login.pl\" \"$server\"`; # Fehler schreiben
 if ("$target" eq "quelle" ) {
  $writedb = `./writedb2.pl 10 \"login_quelle\" 1 \"$intf_name\" \"login.pl\" \"$mail\"`;
 } else {
  $writedb = `./writedb2.pl 10 \"login_ziel\" 1 \"$intf_name\" \"login.pl\" \"$mail\"`;
 }
}
finally {
 $writedb = `./writedb2.pl 0 2 \"login.pl\" \"$intf_name\"`; # Ende schreiben
}