open (IN, "$input_file");
open (OUT, ">$output_file");

my $lastline = <IN>;
print OUT $lastline;
while(<IN>){
	my $line = $_;
	if ($line eq $lastline){
		next;
	}
	print OUT $line;
	$lastline = $line;
}