sub connectToServer {
        my %inConfigParameter = @_;
        my %configParameter;

        %configParameter = (
                'host'          => $inConfigParameter{target},
                'port'          => $inConfigParameter{port} ? $inConfigParameter{port} : 22,
                'user'          => $inConfigParameter{user},
                'passphrase'    => $inConfigParameter{passphrase} ? $inConfigParameter{passphrase} : undef,
                'password'      => $inConfigParameter{password} ? $inConfigParameter{password} : undef,
        #       'more'          => $inConfigParameter{key} ? [ -i => $inConfigParameter{key} ] : undef,
        );

        #print Dumper(%configParameter);
        my $sftp = Net::SFTP::Foreign->new(%configParameter);
        print "GUGUS!!\n";
        $sftp->error and die "SSH connection failed: " . $sftp->error;
}