Help for this page

Select Code to Download


  1. or download this
    shell> perl5.8.0 pmsopw_304778.pl
loop: pre
...
loop: inside
buh-bye: for
loop: post
  2. or download this
    sub DESTROY {
  print "bye: @{$_[0]}\n";
...
bye:  sub
bye:  sub
loop: post