#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH2;

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

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

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

# Das hier erzeugt eine null-Byte-Datei mit dem richtigen Namen:
$ssh2->scp_get($filename, $filename) or die $!;

__END__
# Das hier funktioniert zwar, ist aber sehr langsam (ca 20 kb/Minute):
my $sftp = $ssh2->sftp();
my $inFH  = $sftp->open($filename) or die $!;
binmode($inFH);
open my $outFH, ">", $filename or die $!;
binmode($outFH);
print $outFH $_ while <$inFH>;