#!/usr/bin/perl print "Content-type: text/html\n\n\n"; # get existing jobs $projectfile = "projects.listing"; open WORK, "$projectfile" or die "Cannot open $projectfile: $!\n"; chomp(@work = ); close WORK; print < Current Projects
Back to Homepage  

HTML $n = 0; foreach $project (sort @work) { @position = split /\|/, $project; print <

$position[0]
$position[1]
Architect: $position[2] 
$position[3] 
$position[4] 
$position[5] 
General Contractor: $position[6] 
$position[7] 
$position[8] 
$position[9] 
Contract Amount: $position[10] 
Scheduled Completion Date: $position[11] 

TABLES $n++; } print <  
 
  FOOTER print "\n";