Below a small Perl demo, donated to Hicon

PHP Code:

#!/usr/bin/perl
##########################################
##  WAP Environment                               
##  Developed by Latinia ([url]www.latinia.com[/url]) 
##########################################

print "Content-type: text/vnd.wap.wml\n\n";
print "="1.0\" encoding=\"iso-8859-1\"?>\n";
print "\n";
print "\n";
print "\n";
print "

\n";
print "USER AGENT : $ENV{'HTTP_USER_AGENT'}\n";
print "REMOTE ADDRESS : $ENV{'REMOTE_ADDR'}\n";
print "USER ID : $ENV{'HTTP_X_UP_SUBNO'}\n";
print "GATEWAY NAME : $ENV{'HTTP_X_UP_UPLINK'}\n";
print "OPERADOR : $ENV{'REMOTE_ADDR'}\n";
print "
\n";
print "\n";
print "\n";

Create count.txt and chmod 777