use Net::SSH::Perl;
 
 cmdossh("172.16.1.89","root", "root");
 
 sub cmdossh {
 
 my($host, $args);
 
 ($host, $args{user}, $args{password}, $mode)=@_;
 
 my $ssh = Net::SSH::Perl->new($host);
 
 $ssh->login($args{user},$args{password});
 
 $ssh->cmd("/etc/rc.d/init.d/network restart");
 
 }