use Net::SSH2;
use IO::Scalar;
use strict;

my $host = "192.168.0.3";
my $handle = IO::Scalar->new;;
my $ssh2 = &connect($host,'user','pass');

sub connect
{
my $host = $_[0];
my $user = $_[1];
my $pw = $_[2];

my $ssh2 = Net::SSH2->new();

$ssh2->connect($host);

if ($ssh2->auth_password($user, $pw))
{
print "\nIN SFTP\n";
$ssh2->scp_get('./Documents/trig.c', $handle);
print "Error: ", $ssh2->error(), "\n";
$handle->seek(0, 0);
_read($handle);
}

$ssh2->disconnect();

return $ssh2;
}

sub _read {
    my $handle = shift;
    while (my $line = <$handle>) {
          print $line;
    }
}