package MyOpen;
require Exporter;
@ISA = 'Exporter';
@EXPORT_OK = 'open';

use Carp;
use Data::Dumper;

sub import {
    my $pkg = shift;
    return unless @_;
    my $sym = shift;
    my $where = ($sym =~ s/^GLOBAL_// ? 'CORE::GLOBAL' : caller(0));
    $pkg->export($where, $sym, @_);
}

sub open (*;$@) {
    print Dumper(\@_), "\n";
    return CORE::open $_[0], $_[1], $_[2];
}
1;