#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
open F, "/usr/bin/fortune|";
print "$_<BR>"while (<F>);