use Net::FTP::Common;
$FTP_connect = { Host => "some.ftpserver.com", 
                           User => "someuser",
                           Pass => "somepassword",
                           RemoteDir => "/home/somedir/dest"
                           } ;   

           $ftp = Net::FTP::Common->new($FTP_connect);
           my @dircontents = $ftp->ls ;
		   foreach(@dircontents)	
				{
				print"$_\n";
				}

           $ftp->quit;