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