$ perl -E 'say 1'
1