# three-argument form of open() is safer
open(my $input, '<', $filename ) || die "can't open $filename \n" ;

my $in_header = 1;
while (<$input>) {
   if (/Parameter/) {
       $in_header = 0;
       next;
   }
   next if $in_header;
   print $_;
}