#! /usr/local/bin/perl
sub html_header {
$mess = $_[0];
printf("Content-type: text/html\n\n");
printf("$mess\n");
printf("$mess
\n");
}
sub html_trailer {
printf("\n\n");
}
&html_header("Searching repository");
printf("hello world\n");
&html_trailer;