Select Code to Download

use warnings;
use strict;
...
print $fh "$s2\n";

mysub ($fh, $s1, $s2);

This is string one
This is string two