#!/usr/bin/perl while () { print STDOUT $_; }