webhome: 19% write.cgi
Global symbol "name" requires explicit package name at write.cgi line 10.
Global symbol "name" requires explicit package name at write.cgi line 11.
No comma allowed after filehandle at write.cgi line 28.

##</code><code>##

#!/usr/bin/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;
 exit;