#!/usr/bin/perl
use strict;
binmode STDOUT;
my $file = shift || "-s 30%linuxcookie 30%kernelcookies murphy" ;
my $did_fortune;
while (<>) { 
	print ;
	if ((m/^-- $/ || eof()) && (!$did_fortune)) {
		print qx(fortune $file) . "\n";
		$did_fortune = 1;
	}
}
