#!/usr/bin/perl -w

use Net::FTP;

my $hostname='xxx.xx.x.x';
my $user='xxxxxx';
my $password='xxxx';
my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->quit;