#!/usr/bin/perl

$file = 'c:/apache/cgi-bin/wap/texts.txt';

open (FILE,"$file");
while (<FILE>){
   $text[$i++] = $_;
}
close (FILE);

$num = int(rand(@text)) + 1;

$output = $text[$num];

$output =~ s/([а-яА-Я])/'&#'.(ord($1)+0x350).';'/ge;
$output =~ s/ё/ё/g;
$output =~ s/Ё/Ё/g;

print "Content-type: text/vnd.wap.wml\n\n";

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\">\n";
print "<wml>\n";
print "<card id=\"card1\" title=\"KK\">\n";

print "<p>\n";
print "<img src=\"http://fedotov/cgi-bin/wap/kk.wbmp\" alt=\"KK\" />\n";
print "</p>\n";

print "<p>\n";

print "$output";

print "</p>\n<p>\n<a href=\"http://fedotov/cgi-bin/wap/kk.pl\">\n";
print "refresh...\n";
print "</a></p>\n";
print "</card>\n";
print "</wml>\n";

http://www.blablabla.org/wtf.wml