Select Code to Download

open(TEST, "test.txt") or die "oops: $!";
my $text = "";
...
}

print $text;

                 H     T     M     L           f     o     r     m    
+ a     t
         (     .     h     t     m           o     r           .     h
+     t
...
     L     e     a     f     4     2     :                       w    
+ m     v

     L     e     a     f     4     2     :                       m    
+ d     b