perl -le"for my $_ (1..2) { print }