#### # Get File List #### sub get_file_list { my $dfiles = "/Library/WebServer/Documents/userpages/uploads"; opendir(DIR,$dfiles); my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR); closedir(DIR); print< Upload - Delete Files

List of Files:
HTML foreach (@files) { print "
Delete this File: \n"; } print<
HTML }