# to read from the file
open (FILE,"</myfile");
flock FILE,1;
while (<FILE>){
($tmp_state,$tmp_job) = split /\|/,$_;
push @job, $tmp_job;
}
# sort @job or @state how you would like
# Print html header
foreach $tmp_job(@job){
# Print html with @job for a value and 
}
# Print html footer

##</code><code>##

#open file
#lock file
#read user input
#write user input to file
#close file

#open file
open (FILE,"</myfile");
#lock file
flock FILE,2;
#read user input
$input = <STDIN>;
#write user input to file
print FILE "$input";
#close file
close FILE;