#!/usr/bin/perl

use Net::FTP;
$ftp = Net::FTP->new("133.109.9.1",Debug => 0)
or die "Cannot connect to some.host.name: $@";
$ftp->login("ftpuser",'ftppwd')
or die "Cannot login ",$ftp->message;
$ftp->cwd("/etc")
or die "Cannot change working directory ",$ftp->message;
$ftp->get("passwd")
or die "get Failed ",$ftp->message;
$ftp->quit;