#! perl -sw
use strict;

my $header;
{
	local $/ = 'END';

	open FILE, "<$ARGV[0]" or die "$!\n";
	$header = <FILE>;
      #print tell FILE;
	close FILE;
}

my @lines = split /\n/, $header;

print $_.$/ for @lines;