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