#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH2;
use Net::SFTP::Foreign;

# Bitte zum Testen versorgen:
my $host     = '';
my $user     = '';
my $pass     = '';
my $filename = '';

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

$ssh2->connect($host) or die $!;
$ssh2->auth_password($user, $pass) or die $!;

my $sftp = Net::SFTP::Foreign->new(
    ssh2 => $ssh2
    , backend => 'Net_SSH2'
);
die $sftp->error if $sftp->error;

$sftp->get($filename, $filename) or die $sftp->error;