my $key_path = "/home/tom/.ssh/id_file";
my $ssh = Net::OpenSSH->new(
                            $host,
                            key_path => $key_path,
        );

$ssh->scp_put("$war_full_path", "$ENV{HOME}") or die "SCP failed: " . $ssh->error;