# MOVE ORIGINAL TO  ../Done/M-archiv

print "move $originalfilenamequantity 1.txt \n";

system("move $originalfilenamequantity ..");

##</code><code>##

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