#!/usr/bin/perl

$fileName = $ARGV[0];

open STRIPFILE, "<$fileName";

open STRIPPED, ">$fileName.strip";

while (<STRIPFILE>) {
        print STRIPPED $recentLine;
        $recentLine = $_;
}

$recentLine =~ s/\n$//;

print STRIPPED $recentLine;

close STRIPPED;
close STRIPFILE;
