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