Select Code to Download

#!/usr/bin/env perl

...

$t->process(\$input, $vars);
$t->process(\$input, $vars2);

    <p>ed=ED ad=AD</p>
    <table>
...
        </tr>
        
    </table>