push @files, $nextfile;

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

exit;