use subs 'open';
sub open
{
    print "opening file: @_\n";
    CORE::open(@_);
}