#!/usr/local/bin/perl
$ENV{'PATH'} .= ":$ENV{'HOME'}/l/fun/bin:" .
                "$ENV{'HOME'}/l/fun/bin/$ENV{'ARCHIT'}:" .
                "/usr/local/games:/usr/games";
$ENV{'PATH'} .= ":/u/kinzler/l/fun/bin:/u/kinzler/l/fun/bin/sun4";

# haiku - front-end for haiku spewer
# Development version 03: use open() instead of system()
# Steve Kinzler, kinzler@cs.indiana.edu, Jan 96

###############################################################################

open(HAIKU, 'spew 3 haikus |') || die "$0: cannot run spew ($!)";

while (<HAIKU>) {
        print;
}

close HAIKU;