#!/your/path/to/perl


use Net::FTP;


my $ftp = new Net::FTP ($host, DEBUG=> 1);
$ftp->login('user', 'password');
$ftp->quit;