Select Code to Download

sub mput { my($ftp,$pattern) = @_; foreach my $file (glob($pattern)) {
+ $ftp->put($file) or warn $ftp->message; } }

sub mget { my($ftp,$pattern) = @_; foreach my $file ($ftp->ls($pattern
+)) { $ftp->get($file) or warn $ftp->message; } }