use strict;
use warnings;

use Net::SFTP::Foreign;

my $host = '*mycompany*@*client_ftp_IP*';

my %args = ('ssh_cmd'  => 'C:\Program Files\OpenSSH\bin\ssh',
            );

my $sftp = Net::SFTP::Foreign->new(
	$host,
	%args,
	more => [
        -p => '*connection port*',
		-i => 'C:\Documents and Settings\.ssh\id_cmf_mediatech',
        '-v',
	]
);

$sftp->error and
   die "Unable to stablish SFTP connection: " . $sftp->error;