use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new("10.10.1.10");
$ssh->login("username","password");

$ssh->cmd("touch /root/creat_text_file.txt");