use strict;
use File::Copy;
use File::Copy::Recursive qw(dircopy); 

# src - pfad
# dest - pfad
# trash - pfad
my $system = 'C:/Entwicklung/Perl/projects/Testen';
my $src = $system . '/src';
my $src = 'C:/Drv/A/1';
my $dest = $system . '/dest';
my $trash = $system . '/trash';

    
&dircopy($src, $dest) or die $!;