Help for this page

Select Code to Download


  1. or download this
    my ($mdd, %style);
BEGIN { %style = (indent=>1, autoprint=>1) };
...
$mdd->(mdd => \%INC);
$odd->(odd => \%INC);
$ndd->(ndd => \%INC);
  2. or download this
     perl -e 'sub f{my$p=shift;$$p++;} f(\(my ($g)="val")); print "g:$g\n"
+'