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