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