#!/usr/bin/perl -wT push(@Inc,"/cgi-bin"); require("cgi-lib.pl"); &ReadParse(*input); #Determine the base price based on the system variable if($input{'system'}eq"486d66"){ #set 486 only variables $computer_name = "486DX2-66"; $price = 1099; $memory = 4; $video = "VLB"; } else{ #not a 486 must be a pentium system $computer_name = "Pentium"; $memory=8; $video="pcl"; $cache="256K Cache"; if ($input{'system'}eq"P100"){$price=1799;$ptype=100} elsif($input{'system'}eq"15inch"){$price;$ptype=75} elsif($input{'system'}eq"P60"){$price=1450;$ptype=60} } #add extra price for monitors over 14 inch $monitor=$input{'monitor'}; if ($input{'monitor'}eq"17inch"){$price+=650;} elsif($input{'monitor'}eq"15inch"){$price+=200;} #add multimedia system if(defined($input{'sound'})){ $price+=190; $multimedia="Multimedia System"; } #add 14.4 modem price if (defined($input{'modem'})){ $price+=69; $modem="14.4 modem"; } print&PrintHeader; print < $computer_name Systems from Austin Computer Center North

Austin Computer Center North
Austin Texas!