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