### oben ins Skript zu den anderen "use"
use File::Spec;

### später dann in Deiner Schleife
 my $lokale_datei = File::Spec->catfile( "C:", "ftp", $datei );
 $ftp->get( $datei, $lokale_datei );