perl -MO=Terse -le 'for(<>){print}' perl -MO=Terse -le 'while(<>){print}'