Australian Personal Computer 2004 July/APC0407D2.iso/workshop/apache/files/ActivePerl-5.8.3.809-MSWin32-x86.msi/_0fcffce4904f7eebdda253e91b7cf6db

Text File | 2004-02-02 | 392 b | 22 lines

#!/usr/local/bin/perl

use blib;
use Net::FTP;
use Getopt::Long;

$opt_debug = undef;
$opt_firewall = undef;

GetOptions(qw(debug firewall=s));

@firewall = defined $opt_firewall ? (Firewall => $opt_firewall) : ();

foreach $host (@ARGV)
 {
  $ftp = Net::FTP->new($host, @firewall, Debug => $opt_debug ? 1 : 0);
  $ftp->login();
  print $ftp->pwd,"\n";
  $ftp->quit;
 }