BEGIN {
        # Deleting and remaking the sub fails! ;(
        delete $main::{open};
        *{main::open} = sub { print "Ho\n"; };
        BEGIN {
                require subs;
                import subs 'open';
        }
}