#$ perl -MTest::More -e 'plan "no_plan";TODO:{local $TODO="foo bar"; fail("blog");}'
not ok 1 - blog # TODO foo bar
#   Failed (TODO) test 'blog'
#   at -e line 1.
1..1