Select Code to Download

#!/usr/local/bin/perl -w

...
print $_->{title},br for @Retrieves;

#!/usr/local/bin/perl -w

...
);
print header;
print $results_tmpl->output();

# send back the sitesearch input box:
<form method="get" action="http://your_path/cgi-bin/sitesearch.pl">
...
<TMPL_LOOP RESULTS>
    <a href="http://your_path/<TMPL_VAR FILENAME>"><TMPL_VAR TITLE></a
+><br>
</TMPL_LOOP>