Current Job Openings At Southern

#!/usr/bin/perl print "Content-type: text/html\n\n\n"; # get existing jobs $jobfile = "jobs.listing"; open JOBS, "$jobfile" or die "Cannot open $jobfile: $!\n"; chomp(@jobs = ); close JOBS; print < Current Job Openings At Southern

HTML $n = 0; foreach $job (sort @jobs) { @position = split /\|/, $job; print "$position[0]
\n"; print "$position[1]

\n"; print "
\n"; $n++; } print <Apply Now

FOOTER