Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
$ftp->cwd($path) || die "couldn't cwd! $!\n";
$ftp->get($filename) || die "get($filename) failed: " . $ftp->code() .
+ ": " . $ftp->message();
$ftp->quit;
  2. or download this
    [dswan@ashtaroth GUP]$ perl ftp.pl
get(chr5.zip) failed: 500: Illegal PORT command.