#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $EX_DIR = "/media/EXTERNAL";

sub displayHardDriveFiles () {
        opendir( DIR, $EX_DIR )  || die "<H3>Cannot open $EX_DIR: $!</H3>\n";
        print <<HTML;
<table border=1>
<tr><th>Files on this harddrive</th></tr>
HTML
        foreach my $d (sort readdir(DIR))  {
                print "<tr><td>$d</td></tr>\n";
        }
        print <<HTML;
</table>
HTML
}

print header;
print start_html ("Welcome");
displayHardDriveFiles();
print end_html;

##</code><code>##

Software error:

<H3>Cannot open /media/EXTERNAL: Permission denied</H3>

For help, please send mail to the webmaster (root@localhost), giving this error message and the time and date of the error.