#!C:/Strawberry/perl/bin/perl

use strict;
use warnings;
use Net::SFTP;
use Data::Dumper;						# Ausgabe von Datenstrukturen für Debug-Zwecke; Syntax 'print Dumper ( @foo );'

my $host = "webserver";
my %args = (
	user => 'user',
	password => 'passwort',
	debug => 'true',
);

# Make connection
my $sftp = Net::SFTP->new($host, %args);

# Check Status
$sftp->status;
print Dumper ($sftp);