Help with script How to prepend 2 lines instead of 1

[steve1040]

Using the script below I need to add a second line with the following
text:
"STAGEHDR|Barcoded"

#!perl
use strict;
use warnings;
my $file = 'path/to/Access.csv';
my $newline = "ENTHDR|1|3.0";
{
   local @ARGV = ($file);
   local $^I = '.bac';
   while(<>){
      if ($. == 1) {
         print "$newline$/";
      }
      else {
         print;
      }
   }
}


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/