#!/usr/bin/perl print "Content-type:text/html\n\n"; print < BuyBooksOnline.com EndOfHTML read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @ans = split(/&/, $buffer); #ans will contain variable "custadd=somestring", "transno=439585" ($temp, $amount) = split(/=/, $ans[0]); $amount =~ tr/+/ /; $amount =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print <
 

 

BUY IT NOW

You have agreed to buy a book.

COST : EndOfHTML print "$amount"; print <

Please enter the following details for the transaction to proceed

Delivery Address :

Credit Card :

 

 

......................................................... ..

 

 
 
EndOfHTML