#!/usr/bin/perl
## Send response to standard output

$ft = `./fortune wisdom`;

print <<END;
Content-type: text/html

<p style="color: blue"> $ft </p>
END

exit;