Select Code to Download

#!/usr/bin/perl
use strict;
...
closedir $dir;

move( "$newDir/$_", "$curDir/$_" ) for @FILES;