package Filter::Handle::Tainted;
 # Put this code into the package just to have a reasonable
 # place to live.
 
 use Filter::Handle qw(subs);
 use Taint qw(tainted);
 use Exception::Class qw(Filter::Handle::Tainted::TaintException);
 INIT {
     Filter
         \ *STDOUT,
         sub {
             for (@_) {
                 next unless tainted( $_ );

                 # Tainted data was about to be printed to
                 # the handle. Throw an exception instead.
                 Filter::Handle::Tainted::TaintException
                   -> throw( error =>
                             "Tainted data may not be written to this io handle." );
             }
         };
 }