#!/usr/local/perl

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

my $sftp = Net::SFTP->new("servername", debug=>1, password=>"password" );
$sftp->get('filename', 'filename');