Select Code to Download

use strict;
use warnings;
...
print_lines($file);
test("hello world\n");
test_2("hello this is dog");

package My::Package;

...
    my ($input) = shift;
    print $input;
}

this
is
a
test!!!!