Select Code to Download

use My::Wrapper qw( wrap );

...

    return;
}

use My::Wrapper qw( wrap );

...

    return;
}

package My::Wrapper;

...
    $template->param(%T);
    print $template->output();
}