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
}