Zde je první část skriptu (více viz kapitola o WAP/WML), kde jsou deklarovány proměnné a proměnná $cislo se zobrazuje, abychom se ujistili, že jde skutečně o číslo:

my $number = param('number');
my $smoke = param('smoke');
my $dinner_index = param('dinner_index');

$number =~ /([0-9]*)/ ; 
$number = $1;

Zde najdete zbytek skriptu, pokud by vás zajímal.