#!/usr/bin/perl -w use HTML::Template; # OPEN TEMPLATE my $tmpl = HTML::Template->new(filename => "index.tmpl"); # FIND FILES my @files = `ls -1 --color=no /home/Natura/htdocs/download/TGZ/JSPELL`; @files = map {chomp; "
  • $_
  • "} @files; $tmpl->param(SOFTWARE => join("", @files)); #... # PRINT THE HTML FILE open OUT, ">index.html" or die; print OUT $tmpl->output; close OUT;