#!/usr/bin/perl
#Written by Jen Chen
#Copyrighted by Jen Chen
use CGI (":standard");
open(ORDERS,"Orders.csv") || warn "Can not open the file specified!";
print "Content-type: text/html \n\n";
print "Testing shell script \n";
print " \n";
print "Hello Students in CS 345 class!
\n";
print "";
$colHeader = 1;
foreach $record (){
@array = split(/,/, $record);
if($colHeader < 2){
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
$colHeader = $colHeader + 1;
} else {
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
$colHeader = $colHeader + 1;
} #End of IF-statement
} #end of FOR-loop
print "
";
print " \n";
print " \n";