Select Code to Download

use strict;
use warnings;
...
chomp( my @strings = <> );

print "$_\n" for @strings;

use strict;
use warnings;
...
}

print "$_\n" for @strings;