BHW1234|Drill|Black and Decker cordless drill with soft case|$79.97 BHW222|Hammer|Stanley 16-Ounce AntiVibe curved claw steel hammer|$22.49 BHW2054|Handsaw|Dewalt 15 in. Hand Saw with blade armor features ToughCoat|$18.97 BHW7048|Level|True Blue Empire level. Accuracy, durability and readability with a Lifetime Warranty. |$49.97 BHW6034|Screwdriver|Klein #2 phillips screwdriver with electrical insulstion.|$18.29 BHW9856|Tablesaw|Saw Stop all-purpose versatility, reliability and safe.|$1500.00 ##

##


#!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 "";