#!/usr/bin/perl

use CGI qw/:standard/;

use strict;

print header(-type => 'text/xml');
print "<content>\n";
print "dynamic content: ", int(rand(100)), "\n";
print "</content>\n";