use strict;
use warnings;

use Net::FTP;


# Variablen setzen
my %ftp = (
        ftp_server => 'meinserver.de',
        ftp_user => 'user',
        ftp_pw => 'passwort',
        ftp_file => 'datei',
);

&ftp_put (\%ftp);


# FTP-Übertragung
sub ftp_put {
        my $ftp = shift;
        my $ftp_handle = Net::FTP -> new ( $ftp{ftp_server}, Debug => 1, Passive => 1 ) or die "Kann mit '$ftp{ftp_server}' nicht verbinden: $@\n";             # Verbindung mit FTP-Server aufbauen
}

Process started >>>
Net::FTP>>> Net::FTP(3.10)
Net::FTP>>>   Exporter(5.72)
Net::FTP>>>   Net::Cmd(3.10)
Net::FTP>>>   IO::Socket::SSL(2.027)
Net::FTP>>>     IO::Socket::IP(0.37)
Net::FTP>>>       IO::Socket(1.38)
Net::FTP>>>         IO::Handle(1.36)
Net::FTP=GLOB(0x26c6c3c)<<< 220 ProFTPD 1.3.5b Server (ProFTPD) [xx.xx.xx.xx]
<<< Process finished. (Exit code 0)

Process started >>>
Net::FTP>>> Net::FTP(3.10)
Net::FTP>>>   Exporter(5.67)
Net::FTP>>>   Net::Cmd(3.10)
Net::FTP>>>   IO::Socket::INET6(2.69)
Net::FTP>>>     IO::Socket(1.34)
Net::FTP>>>       IO::Handle(1.33)
Net::FTP: Net::Cmd::_is_closed(): unexpected EOF on command channel:  at K:\utils.pl line 21.
Kann mit 'meinserver.de' nicht verbinden: [Net::FTP] Connection closed
<<< Process finished. (Exit code 9)

Process started >>>
Kann mit 'unbekannterserver.de' nicht verbinden: Net::FTP: getaddrinfo: Der angegebene Host ist unbekannt. 
<<< Process finished. (Exit code 22)