use Filter::Handle qw/subs/;
    Filter \*STDOUT, sub { "Foo: @_\n" };
    print "Bar";
    UnFilter \*STDOUT;

##</code><code>##

Deep recursion on subroutine "Filter::Handle::PRINT" at .../lib/Filter/Handle.pm line 51.
Segmentation fault (core dumped)

##</code><code>##

Not a GLOB reference at .../lib/Filter/Handle.pm line 50.
	(in cleanup) Not a GLOB reference at .../lib/Filter/Handle.pm line 25 during global destruction.