perl -le 'for (1..5) { print };'