my $jobdirectory = "../jobs/"; my $linklist = joblist($jobdirectory); foreach my $jobInDirectory (@$linklist) { next unless ($jobInDirectory =~ m/\.html$/); $linklist = $linklist . '' . $jobInDirectory . '' . '
'; } open (LISTING, '>> ../jobs/index.html'); print LISTING $cgi->start_html( -title => 'Job Postings') . '
' . $linklist . '
' . $cgi->end_html . "\n"; #### ARRAY(0x8187600)SP_HT_54.html SP_HT_59.html SP_HT_53.html SP_HT_52.html SP_HT_55.html