use strict;
use warnings;

my $infile = $ARGV[0] or die "$0 Usage:\n\t$0 <input file>\n\n";
open(my $fd , '<' , $infile) or die "$0 Error: Couldn't open $infile for reading: $!\n";

my $outfile = 'processedData.txt';
open(my $fh, '>', $outfile) or die "Could not open file '$outfile' $!";

my $previous;
	print $fh "data\n";
while (<$fd>) {

    $previous = $_;
    print $fh $previous;
    
}
chomp($previous);
close $fh;