#!/usr/bin/perl -wT use strict; use CGI ':standard'; # dita.cgi my ($brand, $item, $prod, @code, @price, @name, @disc); $brand= param('brand'); $item= param('item'); $prod= param('prod'); @code=('HSDIT001','HSDIT002','HSDIT003','HSDIT004','HSDIT005','HSDIT006','HSDIT007','HSDIT008','HSDIT009'); @price=('£68.00','£85.00','£80.75','£72.00','£68.00','£59.50','£51.00','£39.00','£25.50'); @name=('Gega Comp 5','Gega Pro Max Comp','Mega Pro J','Mega Sting J','Mega Sonic J','Mega Fusion J','Mega Tech','XTS 750 J','XTS 550'); @disc=('Full composite, Mega J head, Carbon fibre & Glass fibre.','Full composite, J head shape.','Aramid, Carbon, Glass Fibre reinforced, J Lignostone head.','Aramid, Carbon, Glass Fibre reinforced, J Mulberry head.','Aramid, Carbon, Glass Fibre reinforced, J Lignostone head.','Aramid, Glass Fibre reinforced, Midi head.','Laminated J head, Aramid, Glass Fibre reinforced.','Laminated Midi head, Glass fibre reinforced.'); print "Content-type: text/html\n\n"; print '
'; print qq ($brand<<); print ' '; print qq ($item); print ' '; print qq (>>$name[$prod]); print '
Cost: '; print qq ($price[$prod]); print ' Buy Now Product Code: '; print qq ($code[$prod]); print '
'; print qq (Product Image: $name[$prod]); print '
Not Available
'; print qq (Product Discription: $name[$prod]); print '
'; print qq ($disc[$prod]); print '
<< Relavent Links >>
Stick Bags Hockey Balls Back Grips Stick Repair
';