my $jobdirectory = "../jobs/"; my $linklist = joblist($jobdirectory); my $output = ''; foreach my $jobInDirectory (@$linklist) { next unless ($jobInDirectory =~ m/\.html$/); $output .= '' . $jobInDirectory . '' . '
'; } open (LISTING, '>> ../jobs/index.html'); print LISTING $cgi->start_html( -title => 'Job Postings') . '
' . $output . '
' . $cgi->end_html . "\n";