use Net::SSH2;

        use Net::SFTP::Foreign;
        my $ssh2 = Net::SSH2->new();
         $ssh2->debug($debugFlag eq $true ? 1:0);
         $ssh2->connect($ftpSecureServer)
           or die "Connect failed!\n";
         $ssh2->auth_password($ftpUser, $ftpPW) 
           or die "password auth failed\n";
           
        $ftp = Net::SFTP::Foreign->new(ssh2 => $ssh2,
                    backend => 'Net_SSH2');