perl -E 'say 1'