#!/usr/local/bin/perl -w;
use strict;

my $infile = "/path/to/infile";
my $outfile = "/path/to/outfile";
open(INFILE, "$infile") || die "Died openning $infile. $!\n";
open(OUTFILE, ">$outfile") || die "Died openning $outfile. $!\n";

my $linectr = 0;
my $fline;
my $lline;
while(<INFILE>) {
    chomp;    # Remove the newline.