package MyOpen;
use Carp ();
use Data::Dumper;
use 5.010;

my %cache;

BEGIN {
    *CORE::GLOBAL::open = sub {
        my $pkg = caller;
        my $sub = $cache{$pkg} //= do {
            my $code = <<EOS;
package $pkg;
sub {
    my \$r = CORE::open \$_[0], \@_[1..\$#_];
    Carp::cluck(Data::Dumper::Dumper(\@_));
    return \$r;
}
EOS
            eval $code or die "Bad sub: $@";
        };
        goto &$sub;
    };
}


package main;

open $fh, '>&', 'STDOUT';
open FOO, ">", "/tmp/FOO";