Select Code to Download

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

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

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