my $glob_ref = do { no strict 'refs'; \*{'main::open'} };
*$glob_ref = sub { print "Ho\n"; };