c:\test>perl -wle"sub TODO{ die 'Unimplemented' } 0 or TODO;"
Unimplemented at -e line 1.