# $language = "PerlScript"
# $interface = "1.0"

# FTP Script
# Enable error warnings
#
use Net::FTP;
Win32::OLE->Option(Warn => 3);

sub main {
$ftp = Net::FTP->new("ftp.fcc.gov", Debug => 0);
$ftp->login("anonymous",'support@securenetterm.com');
$ftp->cwd("/pub");
$ftp->get("index.txt");
$ftp->quit;
}