in reply to How to fetch all files with a given name from an FTP server

for my $filename ($ftp->ls()){ $ftp->get($filename) if $filename=~ /\.txt$/; }
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."