#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
use POSIX;
print "\n";
print "Perl with applet\n";
print "\n";
print "3d model of difference between reader and writer
";
$gap= " ";
$range = 100;
$minimum = 10;
$ran = int(rand($range));
#+$minimum;
$ran2 = $ran/2;
$ran3 = ceil($ran2) + 22;
# $ran3 = int($ran2);
print << "DOC";
DOC
print "user values: ";
print $ran;