use strict;
use warnings;
use Net::SFTP;

my $host   = '217.154.215.76';
my $remote = '/usr/lib/perl5/site_perl/5.8.8/Net/SFTP.pm';
my $local  = '/path/to/Desktop';
my %args   = ( user     => 'username',
               password => '',
               debug    => 1
);

my $sftp = Net::SFTP->new($host, %args);
#$sftp->get($remote, [$local]);