#!/usr/bin/perl 
use Net::FTP;
my $destserv="ftp.myhost.com";
my $destuser="username";
my $destpass="password";

$ftp = Net::FTP->new($destserv) or die "error connecting\n";
$ftp->login($destuser,$destpass);
my $mypath = $ftp->pwd();
$ftp->quit();
print "FTP Path: $mypath";