my $user = “phil” ;
my $pass = “testme” ;
my %parms = ( user => $user, password =>  $pass) ;
my $sftp = Net::SFTP->new($sadder, % parms) ;