Select Code to Download

#!/usr/bin/perl
use strict;
...

$template->param(fruits => \@fruits);
print $template->output();

Content-Type: text/html; charset=ISO-8859-1

...
    </table>
    </body>
</html>