use Net::SFTP::Foreign;
       $host = "192.168.1.130" ;

       %args = (
                 "user" => "vetri" ,
                 "password" => "vetri" ,
                 "more" => '-v'

               ) ;

my $sftp = Net::SFTP::Foreign->new( $host,%args )