chdir; # go home

    $FIFO = '.signature';

    $ENV{PATH} .= ":/etc:/usr/games";

 

 

    while (1) {

        unless (-p $FIFO) {

            unlink $FIFO;

            system('mknod', $FIFO, 'p')

                && die "can't mknod $FIFO: $!";

        }

 

 

        # next line blocks until there's a reader

        open (FIFO, "> $FIFO") || die "can't write $FIFO: $!";

        print FIFO "John Smith (smith\@host.org\n";

        close FIFO;

        sleep 2;    # to avoid dup signals

    }