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