#! perl -slw use strict; while( <> ) { print; }