my $dest = "$currentdir/.."; # means Z:/SALESD~1/LOGS/ORDERS
my $cmd = "move $originalfilenamequantity $dest";
system($cmd) == 0 or warn("Failed: $cmd");