use Sub::Util;
use Variable::Magic qw<wizard cast>;
my $wiz = wizard
    (set  => sub { print "stat ist nun ",
                       Sub::Util::subname(\&CORE::GLOBAL::stat), "\n" });
cast *CORE::GLOBAL::stat,$wiz;