$ perl -wE 'use strict; open a, "<", "TODO"; say '