#!/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;

##</code><code>##

Name "main::username" used only once: possible typo at filedate.pl line 15.