Select Code to Download

use warnings;
use strict;
use autodie;
open my $in,'<', "in.txt";
open my $out,'>', "out.txt";

my $previous_line;

...

close $in;
close $out;