use subs 'open';
sub open {
    print @_ . "parameters: @_\n";
    CORE::open(@_[0..$#_]);
}