print "Content-type: text/html\015\012\015\012";
print "<p>start</p>\n"";
my $rv = `dir `;
if (defined($rv)) {
    print $rv;
} else {
    print "<p>[$!,$?]</p>\n";
}
print "<p>end</p>\n";