Select Code to Download

    ;; # A comment preceded by two null statements ... why?

while (condition) {
    ...
...
        print "Error message\n";
    }
}

while (condition) {
    ...
...
    of
    code
}

if (condition) {
   some code that
...
else {
   code you do at other times
}

if (condition) {
   some code that
...
}
# Now that we have the special cases out of the way...
code you do at other times

#!/usr/bin/perl
# IBM Message Queue Reader
...
sub LOG {
    print (localtime) . " - " . $msg . ".\n";
}