#!/usr/bin/perl

use CGI qw(:standard);
use strict;

sub printpage();

print header( -type => 'text/html');
printpage();
exit;