package TrapRe;
sub TIEHANDLE {
    my $class = shift;
    my $fh = \do { local *HANDLE };
    bless $fh, $class;
}
sub CLOSE { close $_[0] }
eval qq[sub $_ { print "$_\n" };]
    for qw/READ READLINE GETC WRITE PRINT PRINTF
           BINMODE EOF FILENO SEEK TELL OPEN
           DESTROY UNTIE/;

package main;
BEGIN {
    close STDERR;
    tie *STDERR, TrapRe;
}
use re 'debug';
1 =~ 1;