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