#!c:\Dwimperl\perl\bin\perl.exe use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; print "Content-type: text/html\n\n"; print ""; print "
"; print "

Bob's Hardware Tools

"; print "

Current Hardware

"; open (HARDWARE, "inventory.txt") or die "Error opening file, $!"; print ""; while(my $hardware = ){ (my $sku,my $name,my $desc,my $price) = split/\|/,$hardware; print ""; print ""; print ""; print ""; print ""; } close HARDWARE; print "
$sku$desc$price
"; print "";