Select Code to Download

#!/usr/bin/perl
use strict;
...
close OUT;
my $bla = <IN>;
say "Read: $bla.\n";