print "Doing some work ...";
  &doSomWork();
    print "Done\n";
print "Doing some ping ...";
  &doSomePing();
    print "Done\n";
print "Checking threshold ...";
  if ($yadayadaya < $yodolodolo) { die "Horrible death"; }
    Print "Done\n";

##</code><code>##

C:\temp>myScript.pl
Doing some work --> Done.
Doing some ping --> Done.
Doing something else --> Done.
Number of machines to be LAPC'd (178) below threshhold (700), please investigate
! at I:\perl\lapc.pl line 41.
Checking Threshold -->
C:\temp>