use File::Glob to get a list of files, and then loop thru them.

use Data::Dumper;
use File::Glob ':glob';

use strict;
use warnings;

my @files = bsd_glob("*.pl");
foreach my $file (@files) { 
    print $file, "\n";
}
[download]

In case you know ant, it is easy to use ant. It supports a ftp task.