Select Code to Download

use LWP::Simple;

my $remote = 'ftp://ftp.example.com/path';
...
);

mirror("$remote/$_", "$local/$_") for @files;