#!/usr/bin/perl5/perl -T use strict; use warnings; use diagnostics; use CGI qw/:standard center/; opendir DIR, "./Data" or die "Couldn't open directory ./Data: $!"; my @files; while ( my $name = readdir DIR ) { next if $name !~ /^\d*.html/; push(@files, $name); } closedir DIR or die "Couldn't close directory './Data': $!"; my $next_file = 'testing.html'; open OUT, ">Data/$next_file" or die "Cannot open 'Data/$next_file': $!"; print OUT start_html( -title => param('title'), -bgcolor => '#FFFFFF'), center( h1( param('heading') ) ), br, p( param('body') ), end_html; close OUT or die "Cannot close 'Data/$next_file': $!"; push @files, $next_file; print header, start_html( -title => 'File Listing'); print a({ -href => "Data/$_" }, $_ ), br for @files; print end_html;