$fref = sub { print "AnonSub\n" };