copy "$source/$file", "$dest$file"
  or die "Can't copy file $file: $!";

##</code><code>##

opendir(DIR, $sech $file(@files){

##</code><code>##

opendir(DIR, $source) 
  or die "Cannot opend the directory '$source': $!";