Select Code to Download

    if (!($inactive)) {
      print " $pt is up\n";
...
      print " $pt is down\n";
    }
    close $call;