*{main::open} = sub { print "Ho\n"; };