Select Code to Download

#!c:/perl/bin/perl

...

print $cgi->header(-type=>"text/html");
print $tt->process('elite_inventory.tt', $vars) || die $tt->error(), "
+\n";