eigentlich nur Dateien Verschieben

[Erwin]

hi,

jemand eine idee? vielleicht auch gleich
ne idee, wie ich die dateien gleichnamig
gzip'pen kann vorher ?

Verstehe zwar das Problem nicht ganz, aber ich nehme dazu
  use File::Copy;
        copy("file1","file2");
        copy("Copy.pm",\*STDOUT);'
        move("/dev1/fileA","/dev2/fileB");

und zum zippen
foreach $file (@files){
        print "gzip -9 $file";
        my $x = qx(gzip -9 $file);
        print "$x\n";
}

Erwin