use Net::FTP;                           # Für FTP
my $server="servername.domain";
my $username="user"; 
my $password="pass"; 
my $pfad="/irgendwas";
my $dateilokal="C:\\daisses.txt";
my  $datei="xyz.xml";

$ftp=Net::FTP->new($server, Debug=>0) || die "Keine Verbindung mit $server.\n";
$ftp->login($username, $password) || die "Fehler beim einloggen.\n";
$ftp->cwd($pfad);
$ftp->ascii();                
$ftp->get($datei, $dateilokal) || die "Fehler beim herunterladen von $datei auf $server.\n";
$ftp->quit() || die "Fehler beim ausloggen von $server.\n\n";