#!/usr/bin/perl5/perl ##

##

#!/usr/bin/perl5/perl -T
use strict;
use warnings;
use diagnostics;

##

##

#!/usr/bin/perl5/perl -wT
use strict;
use diagnostics;

##

##

&get_form_data;

##

##

use CGI qw/:standard center/;

##

##

print "Content-type: text/html\n\n";

##

##

opendir(DIR, "./Data");
while($name = readdir(DIR))
    {
 next if $name !~ /^\d*.html/;
 push(@files, $name);
    }
close(DIR);

##

##

opendir(DIR, "./Data");
    while( $name = readdir(DIR) ) {
        next if $name !~ /^\d*.html/;
        push(@files, $name);
    }
close(DIR);

##

##

opendir (DIR, "./Data") || die "Couldn't open directory ./Data: $!";

OR:

opendir DIR, "./Data" or die "Couldn't open directory ./Data: $!";

##

##

    while( $name = readdir(DIR) ) {
        next if $name !~ /^\d*.html/;
        push(@files, $name);
    }

##

##

    my @files
    while( my $name = readdir DIR ) {
        next if $name !~ /^\d*.html/;
        push(@files, $name);
    }

##

##

    my @files
    while( readdir DIR ) {        
        push @files, $_ if /^\d*.html/;
    }

##

##

closedir(DIR) || die "Couldn't close directory './Data': $!";

OR:

closedir DIR or die "Couldn't close directory './Data': $!";

##

##

my $next_file = 'testing.html';

##

##

open OUT, ">Data/$nextfile" or die "Cannot open 'Data/$nextfile': $!";
    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/$nextfile': $!";;

##

##

push(@files, $nextfile);
print "\n\n";
foreach $file (@files) {
    print "$file\n";
    print "
\n";
}
print "\n\n";
exit;

##

##

push @files, $nextfile;

print headers, start_html( -title => 'File Listing');
print a({ -href => "Data/$_" }, $_ ), br for @files;
print end_html;

exit;

##

##

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