$ftp=Net::FTP->new($primary_ip,Timeout=>120) or $connect_err=1;