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

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

system("move $originalfilenamequantity ..");