copy("$dir/$file","$dir1/$file") or die "Cannot copy file: $!\n";