use Net::FTP;

$ftp=Net::FTP->new("$hostname");