in reply to Re: Obtaining header from file (first line) - printing to output file
in thread Obtaining header from file (first line) - printing to output file

or simply pumping in the entire file once(though not a good practice) and then filtering the first line. 
my @filelines=`cat $input_file`;print OUTFILE $filelines[0];

[download]
  • Comment on Re^2: Obtaining header from file (first line) - printing to output file
  • Download Code

In Section Seekers of Perl Wisdom