#!/usr/bin/perl

use strict;
use warnings; 
use File::Copy;

my $dir = 'f:/';
my $file = 'all.txt';
copy("$file", "$dir") or die "Kopieren fehlgeschlagen: $!";

1;