#!/usr/bin/perl
use CGI ':standard';
#use CGI::Carp "fatalsToBrowser";
#######################Paul placed header in below list###############################
print header, start_html ('Inventory List');
#$infile='http://academic.algonquincollege.com/students/gerv0064/indata.txt';
$infile="indata.txt";
open (INFILE, $infile) || die "Cannot open $infile: $!";
while ( <INFILE> )
{
 $inline=$_;
 ($ptno, $ptname, $num, $price ) =  split ( /:/, $inline);
 print "We have $num $ptname ($ptno). ";
 print "The cost is $price dollars. ", br;
}

close (INFILE);
print end_html;