#!/usr/bin/perl -w print "Content-type: text/xml\n\n"; printf("\n"); printf("%d\n", rand($ARGV[0])); printf("\n",$ARGV[0]);