package mypackage; @ISA = qw (somethingelse);

use BerkeleyDB;
use MY::Net::SFTP;

##</code><code>##

#!/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)';