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