Select Code to Download

sub to_sh_lit {
   my ($s) = @_;
...

my $lit_param = to_sh_lit($param);
print SH "echo $lit_param\n";