#! /usr/bin/perl -l # *or* $\ = "\n"; # do it once and won't have to again.