open STDOUT, '| more | more';;
print "hello world! $_" for 1.. 1000; 
exit;;