Help for this page

Select Code to Download


  1. or download this
    open my $savederr, '>&', \*STDERR;
my $module_stderr = '';
...
SomeFunkyModule::sub_that_spews_to_stderr();
open(STDERR, '>&', $savederr);
# process the stuff in $module_stderr
  2. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/