#!/usr/bin/perl -w
use strict;
use warnings;
use File::Copy;
my $dir = "f:/";
my $file = "all.txt";# aus dem aktuellen verzeichnis
my $CopyFile="$dir$file";
copy($file, $CopyFile) or die "Kopieren fehlgeschlagen: $!";