Help for this page

Select Code to Download


  1. or download this
    use Filter::Handle qw/subs/;
.
...
Filter \*STDOUT, sub { local $_ = "@_"
                       print <FH1> "$_\n";
                       $_};
  2. or download this
    Deep recursion on subroutine "Filter::Handle::PRINT" at
        /lib/myfiltermodule.pm line 19 (#1)
...
    case it indicates something else.
    
Deep recursion on anonymous subroutine at /lib/Filter/Handle.pm line 4
+2.