#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;

my $quelle='/pfad/zur/quelle';
my $ziel='/pfad/zum/ziel';

my @dirliste=('.');
while(@dirliste >0)
{
  my $dir=shift(@dirliste);
  opendir(DIR,"$quelle/$dir") or die "Konnte Verzeichnis $dir nicht öffnen ($!)";
  while(my $d=readdir(DIR))
  {
   my $path="$dir/$d";
   if(-d "$quelle/$path")
   {
    push (@dirliste,$path);
    mkdir("$ziel/$path") unless(-d "$ziel/$path");
   }
   else
   {
    copy("$quelle/$path","$ziel/$path") or die "konnte $path nicht kopieren ($!)";
   }
  }
  closedir(DIR);
}