#!/usr/bin/perl print "Content-type: text/html\n\n"; print "tell your fortune
";

foreach (`/usr/local/games/fortune`) { print $_; }

print "
"; print "";