Select Code to Download

use strict;
use warnings;
...
}

print LOG_FH ('Opening log file at '.localtime().".$/") if LOGGING;

# The first time [[ use do_compile_time_arg_check; ]]
# or [[ use do_compile_time_arg_check (); ]] is used,
...
}

1;

>perl -MO=Terse script.pl
Useless use of a constant in void context at script.pl line 10.
...
    COP (0x1dfb2d4) nextstate
    OP (0x1dfb174) null [5]
script.pl syntax OK

>perl -MO=Terse script.pl --log
LISTOP (0x1df2644) leave [1]
...
                UNOP (0x1df2430) null [15]
                    PADOP (0x1df2454) gvsv  18
script.pl syntax OK