I haven't tried this but according to the doc for IO::Ftp it supports "something along the lines of mget "

while (my $in = IO::Ftp->new('<<','//foo.bar.com/foo/bar/*.txt', TYPE=
+>'a') { print "processing ",$in->filename, "\n"; #... $in->close; $in
+->delete; }
[download]

You might try giving that a shot.