#!/usr/bin/perl

use warnings;
use strict;
use Net::FTP;

my $ftp = Net::FTP->new("ftp.cdrom.com") 
    or die "Couldn't connect: $@\n";
$ftp->login("ftp", 'warez@');
$ftp->cwd("/.2/simtelnet/gnu/djgpp/v2/");
$ftp->binary;
$ftp->pasv;
$ftp->get("faq230s.zip");
$ftp->close;
print "Th Th Tha That's All Folks!!!!!", "\n";