#!/usr/local/bin/perl
use Net::SFTP;
use BerkeleyDB;

my %params = ( user => 'myusername' , password => 'mypassword');
my $myaddr = '/home/mine/secure';
my $sftp  = eval 'Net::SFPT->new($myaddr,%params)';