#!"C:\xampp\perl\bin\perl.exe"
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use File::Copy;
print "Content-type: text/html\n\n";
opendir(Q, "D:/data/a_www/images_2021/categories") || die "Can't open directory: $!\n";
while (my $f = readdir(Q)) {
if ($f ne "."){
if ($f ne ".."){
$original_file = $f;
$new_file = "D:/data/a_www/images_2021/categories_2022/".$f;
print "$original_file
\n";
print "$new_file
\n";
copy($original_file, $new_file) or die "The copy operation failed: $!";
}
}
}
closedir(Q);