Select Code to Download

#!/usr/bin/perl

...
$template->param(app => $application_to_call);
print $template->output();
exit;

<!-- snip -->
<frameset frameborder="no" framespacing="0" border="0" rows="80,*">
...
   <frame name="main" src="<TMPL_VAR NAME="app">">
</frameset>
<!-- snip -->