A small code to change the directory, display messages and output the current working directory.

use strict;
use Net::FTP;
my ($ftp, $ftpmessage, $fullpath);
{
    $ftp = Net::FTP->new(<ftphost>) or die "Error: $!";
    $ftp->login(<ftpuser>, <ftppass>) or die "Login Failure: $!";
    $ftp->binary();
    $ftp->cwd("$directory") or die "Couldn't change directory. $!";
    $ftpmessage=$ftp->message();
    $fullpath=$ftp->pwd();
    print "Fullpathname $fullpath\n";
}
[download]

Rupesh.