my $ssh = Net::OpenSSH->new ( $hostmachine, user =>$username, password => $password);
  
  $ssh->scp_put($sourcedir,$sourcedir2,$remote_path)
       or die "scp failed \n" . $ssh->error;
  
  my $rc = $ssh->test('perl sabkuch.pl');
  
  #check if test function returned or not
  if ($rc == 1){
  print "test was ok , server established \n";
  }
  else {
  print "return from test = $rc \n";
  }                                    
exit;