{ local $\ ;
    # do 'cat' stuff here
}


##</code><code>##

	while (<FILE>) {
		print $handle $_;
	}


##</code><code>##

	while (<FILE>) {
		printf $handle $_;
	}