#!/usr/bin/perl

use strict;
use Net::FTP;

my $benutzername = "xxxx";
my $passwort = "xxxx";
my $dateiname = "xxxx.dat";
my $server="xxxx";   
  

my $ftp= Net::FTP->new($server);
$ftp->login($benutzername, $passwort);
$ftp->get($dateiname);
$ftp->quit();        

print $dateiname;