my $host = "X.X.X.X";
    my $usr = "root";
    my $pas = "root";
      
    my $ssh1 = Net::SSH::Expect->new (
        host =>  $host,
        password=> $pas,
        user => $usr,
        raw_pty => 1,
        timeout => 20
    );
    my $login_output = $ssh1->login();
    if ($login_output !~ /#/) {
        print "Debug: login failed ";
        $ssh1->close();
    }
    else {       
        $ssh1->cmd("/system/reboot force");
        $ssh1->close();
        return 0;