#!perl -w
use strict;
use Net::SSH2;

my $local = '/home/test/test.txt';
my $remote = 'test.txt';
scp_put($local, $remote );