#!/usr/bin/perl -w -T

use Net::SSH::Expect;

my $ssh = Net::SSH::Expect->new (
        host => "<IP>",
        user => "<username>",
        raw_pty => 1
        );

$ssh->run_ssh() or die "SSH Process couldn't start: $!";
$ssh->exec("stty raw -echo");

my $who = $ssh->exec("whoami");
print ($who);

my $scp = "scp <file> <username>\@<IP Address>:<destinationpath>;

$ssh->exec($scp) or die "SCP Process error: $!";

##</code><code>##

system('ssh <user>\@<IP> scp $file <user2>\@<Destination IP>:<destination path>');