#!/usr/bin/perl

use CGI qw (:standard) ;

$max = param('max') || "100" ;

print header () ;
$rand = int (rand () * $max ) ;
print "$rand\n" ;