Select Code to Download

my $filename = 'input.txt';
open (my $IN, '<', $filename) or die "Can't open file $filename : $! "
+;