#!/usr/bin/perl
use strict;
use warnings;

my $i = 10;

sub TIEHANDLE {
    return bless {}, 'main';
}

sub PRINT {
    my ($self, $str) = @_;
    print STDOUT "in PRINT: <<$str>>\n";
}

tie *STDERR, 'main';

warn "foo";
eval {
    $i->foo();
};
__END__
in PRINT: <<foo at test.pl line 18.
>>