Select Code to Download

#!/usr/bin/perl -Tw
use strict;
...

close OUT;
close IN;

$ cat test.txt
1 hello
...
3 this
4 is
5 a