Help for this page
#!/usr/bin/perl -w -T ... my $scp = "scp <file> <username>\@<IP Address>:<destinationpath>; $ssh->exec($scp) or die "SCP Process error: $!";
system('ssh <user>\@<IP> scp $file <user2>\@<Destination IP>:<destinat +ion path>');