perl -wle" open OUT, '| more'; print OUT $_ for 1 .. 1000"