lib/Net/demos/ftp

   1 #!/usr/local/bin/perl
   2
   3 use blib;
   4 use Net::FTP;
   5 use Getopt::Long;
   6
   7 $opt_debug = undef;
   8 $opt_firewall = undef;
   9
  10 GetOptions(qw(debug firewall=s));
  11
  12 @firewall = defined $opt_firewall ? (Firewall => $opt_firewall) : ();
  13
  14 foreach $host (@ARGV)
  15  {
  16   $ftp = Net::FTP->new($host, @firewall, Debug => $opt_debug ? 1 : 0);
  17   $ftp->login();
  18   print $ftp->pwd,"\n";
  19   $ftp->quit;
  20  }
  21