Select Code to Download

#!/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;

[dswan@ashtaroth GUP]$ perl ftp.pl
get(chr5.zip) failed: 500: Illegal PORT command.