#!/usr/bin/perl print < test START print "stuff
\n" for ( 1 .. 100 ); print <End FINISH