while ( sleep 1 ) {
      # ...

   if ($percomp == 100) {
      print "\n$drac{Type} job $drac{primary} ",
        "on $drac{hostname} -- DONE\n";

      last;
   } else {
      # ...
   }
}