#!/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: $!";

#!/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;

sub Fluxfwrite {
    open(EIN,"$name")		or die "Kann nicht zum lesen öffnen: $!\n";
    open(AUS,"$DST_DIR"">$name") or die "Kann bla nicht finden: $!\n";
    while (<EIN>) {
        print AUS $_;
    }
    close(EIN)			or die "Kann $name nicht schließen: $!\n";
    close(AUS)			or die "Kann bla nicht schließen: $!\n"; 
};

system("cp file.txt C:/") if($^O =~ /win/i);
system("copy file.txt ~/files") if($^O !~ /win/i);

use Cwd; #Modul zum Ermitteln des aktuellen Verzeichnisses
use File::Copy;

$DST_DIR = "/home/tmarsh/.fluxbox/";
$SRC_DIR = "/usr/portage/x11-wm/fluxbox";

mkdir("$DST_DIR",0755)	or die "kann $DST_DIR nicht erstellen: $!\n";
&Fluxfscan("$SRC_DIR");

sub Fluxfscan {
    my ($workdir) = shift;
    my ($startdir) = &cwd;

    chdir($workdir)		or die "Kann nicht in $workdir wecheseln: $!\n";
    opendir(USR,".")		or die "Kann $workdir nicht öffnen: $!\n";
    my @names = readdir(USR);
    closedir(USR);

    foreach my $name (@names) {
        next if ($name eq ".");
        next if ($name eq "..");
        
        print "$name\n";
     
        if (-d $name) {
          mkdir("$DST_DIR"."$name",0755)	or die "Kann $name nicht anlegen\n";
           &Fluxfscan($name);
           next;
        }
        copy("$name","$DST_DIR");
    }
    chdir($startdir) 		or die "Kann nicht in $startdir wechseln: $!\n";
}