$_ = \&x;
*x = sub { print "Oh my\n" };
$_->();