use Net::OpenSSH;
my $ssh = Net::OpenSSH->new($host);
$ssh->error
  and die "Couldn't establish SSH connection: ".$ssh->error;
$ssh->system("sudo reboot")
  or die "remote command failed: ".$ssh->error;