#!/usr/bin/perl -wT use strict; use CGI; ## URL Pattern: view_detail.pl?page=1&model=101 #my( $page, $value ) = split /=/, $ENV{QUERY_STRING}; #my $name_value; my @name_value_pairs = split /&/, $ENV{QUERY_STRING}; my( $page, $num ) = split /=/, $name_value_pairs[0]; my( $model, $value ) = split /=/, $name_value_pairs[1]; #foreach $name_value ( @name_value_pairs ) { # my( $name, $value ) = split /=/, $name_value; #} print "Content-Type: text/html\n\n"; print < Welcome to FiberDot
     
   
 


**click on the thumbnails for more detail.

             
     

   
      PRODUCT SPECIFICATION
  Product Number: s$value
  Size: 12"x 24"x 3"
  Weight: 7 Pounds
       
    ORDER NOW
    BACK TO SELECTION
 
 
   
All rights reserved © 2005 FiberDot, Inc.

 

EOF