#!/usr/bin/perl print "Content-type: text/html\n\n"; print "tell your fortune"; print ''; print ''; print '
';
foreach (`/usr/local/games/fortune`) { print $_; }

print "
"; print "";