#!/usr/bin/perl

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

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

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