use Net::SFTP ;
       $host    = "hostName" ;

%args = (
      "user" => "vetri" ,
      "password" => "vetri",
       "debug" => "true" ) ;

my $sftp = Net::SFTP->new($host , %args);
$sftp->put("2", "10");