use Net::FTP qw();

sub main
{

$ftp=Net::FTP->new("ebizftp.honda.com",Timeout=>240) or $newerr=1;
die "Can't ftp to ftp://ftpsite.blah.com : $! " if $newerr;

$ftp->login('username', 'password') or die "Cannot login. ", $ftp->message;

$ftp->cwd("\/genex\/AcuraWeb\/Transfer") or $newerr=1;
die "Can't cd: $ftp->message \n" if $newerr;

# it makes it to here o.k., and then dies on this following "put" command, with the "Access is denied" command

$ftp->put("filename.txt") or die "Couldn't put the file ", $ftp->message;

$ftp->quit;