use strict;
use warnings;

use Net::SFTP::Foreign;

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

my %args = ('ssh_cmd'  => 'C:\Program Files\PuTTY\plink',
            );

my $sftp = Net::SFTP::Foreign->new(
	$host,
	%args,
	more => [
        -P => '*connection port*',
		-i => 'G:\FTP\id_cmf_mediatechid_cmf_mediatech.ppk',
        -ssh,
        '-v',
	]
);

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


$sftp->get("foo", "bar") or die "get failed: " . sftp->error;

$sftp->put("bar", "baz") or die "put failed: " . sftp->error;