if (-e $src) {
   $file->copy( $src, $aim ) or die " ... Fehler!" . $!;
} else {
   print "$src existiert nicht."
}