Help for this page

Select Code to Download


  1. or download this
    BEGIN {
     my $verbosity = shift; # or Getopts::Std, whatever...
     eval "sub verbose () { $verbosity }";
}
  2. or download this
    print "Holy Crap = $holy_crap\n" if $verbose >= 1;
  3. or download this
    qwurx [shmem] ~ > perl -MO=Deparse,-x,-p - 1
BEGIN { 
...
'???';      <----- hooray! gone :-)
__DATA__
- syntax OK