#!/usr/bin/perl print "Content-Type:text/html \n\n"; read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$buffer); foreach $pair(@pairs) { ($name,$value)=split(/=/,$pair); $value=~tr/+/ /; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value=~s///g; $FORM{$name}=$value; }
Make your own free website on Tripod.com
 
No.Kakitangan: 

Tarikh kemaskini:

Kod Kursus
Nama Kursus