A quickie. Indentation for readability before the terminating string in here documents...any problem? #! perl -w $oncemore = 1; $daffy = ''; open (DUCK, '<goosewall.txt') or die ('beep beep'); while (defined ($daffy = <DUCK>){ print <<"THATSALL"; Time number $oncemore Just recall terminating string must be the only thing on line. Leading tabs or spaces give problems anytime? <------>THATSALL $oncemore++; } Cheers John ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org