#!/usr/bin/perl
print "content-type: text/html \n\n";

print int(rand(1000));