Perl: TODOnes