AddType text/vnd.wap.wml .wml
AddType image/vnd.wap.wbmp .wbmp

##</code><code>##

#!/usr/bin/perl -w

use CGI qw(:standard);
use strict;

my $q = new CGI;

# This determines being WML or not.
print header(-type => 'text/vnd.wap.wml');
print "<?xml version=\"1.0\"?>\n";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">";

# This is the actual WML content.
print "<wml>\n";
print "<card id=\"main\" title=\"Hello World\">\n";
print "<p>Hello, " . $q->param("f") . " " . $q->param("l") . "!</p>\n";
print "</card>\n";
print "</wml>\n";