# use the STEP param specified SFTP port printlog( "Opening an SFTP connection to $FTPaddress at port($SFTPPORT)"); $ftp = Net::SFTP::Foreign->new($FTPaddress, user => $FTPuser, password => $FTPpasswd, port => $SFTPPORT, debug => $debug, more => [qw(-v -o PreferredAuthentications=password)]