#!/usr/bin/perl use strict; my $rand = int(rand(500)) * 10; my $onefive = $rand * 1.5; print qq(Content-type: text/html\n\n); print q| Oakbox.com - One Five

| . $rand . q|

fill in 1 and a half times the number

|; exit;