sub copyAdd {
    
    # Objektvariable erzeugen, welches rekursives Kopieren von
    # Verzeichnissen erlaubt
    my $file = File::NCopy->new(
            'recursive'      => 0,
            'preserve'       => 0,
            'follow_links'   => 0,
            'force_write'   => 0,
            'set_permission' => \&File::NCopy::u_chmod,
            'file_check'     => \&File::NCopy::f_check,
            'set_times'      => \&File::NCopy::s_times,
    );


    my @data = @_;

    my $src = $data[0];
    shift(@data);

    foreach my $aim (@data) {
        if ( $aim ne "" ) {
            if ( $aim =~ /(\S+)+/i ) {
               
 print "Kopiere " . $src;
               
 mkdir( $aim, 0777 );
               
 $file->copy( $src, $aim) or die " ... Fehler!" . $!;
               
 print " ... OK \n";
            }
        }
    }    
}