Select Code to Download

$ftp->rget( map{($_, 1)} @ARGV);

----------------> CODE <----------------
#!/usr/bin/perl
...
  print STDERR "Usage: $name <host> <username> <passwd> <remote_path> 
+<local_path>\n";
  exit;
}