#!/usr/bin/perl

use Net::SFTP;

print "Connecting...\n";

my $sftp = Net::SFTP->new('www.asd....',
                                   user=>'usead..',
                                  password=>'pass..') or die "could not open connection\n";

$sftp->ls("." , sub { print $_[0]->{longname}, "\n" });

my($stdout)=$sftp->status;
print $stdout."\n";

print "Connected!\n";

$sftp->put("/var/tmp/prac/hi.txt",'/var') or die "...problem !...";

print "\nFinished\n";