use common::sense;

use Net::SFTP;

my $ftp_data = {
    host     => 'kanzlei-sellmann.homepage.t-online.de',
    user     => 'admin@kanzlei-sellmann.homepage.t-online.de',
    password => '000-!Admin!',
    mode     => 'sftp',
};

if ($ftp_data->{mode} eq 'sftp') {

    my %options = (
        user     => $ftp_data->{user},
        password => $ftp_data->{password},
        debug    => 1,
    );

    my $sftp = Net::SFTP->new($ftp_data->{host}, %options);

    $sftp->login($ftp_data->{user}, $ftp_data->{password});

}