use Net::SFTP ;
$host    = "Hostname" ;
%args = (
              "user" , "vetri" ,
                    "password" , "vetri" ,
                    "debug" , "true"
            ) ;



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