Select Code to Download

sub string2Html {
    my ($htmlfilename, $podtext) = @_;
...
    print PIPE $podString;
    close PIPE;
}

sub string2Html {
    my ($htmlfilename, $podtext) = @_;
...
    ### code to wrap up 
}