Select Code to Download

perl -e 'while ($s=<*>) { print $s,"\n"; sleep 5 }'

use strict;
use warnings;
...
  }
}
DoTheMoveWith(@files) if (@files);