Help for this page

Select Code to Download

Select or download this

#!perl -w
...
...
   (defined($lastwarn) && $lastwarn) ? &$lastwarn(@_) : warn(@_);
 };
}