#!/usr/bin/perl
@lines;

open (SPOOK, "/usr/share/emacs/20.7/etc/spook.lines");
while(<SPOOK> !~ m/.*\0/)
{

}
while(<SPOOK> =~ m/(.*)\0/)
{
    push @lines,$1;
}
close (SPOOK);
$spook="";


srand (time ^ $$ & unpack "%32L*", `ps axww | gzip`);
for($i=0; $i<10; $i++)
{
    $nextSpook=$lines[rand(@lines)];
    chomp($nextSpook);
    chomp($nextSpook);
    $spook.=$nextSpook." ";
}

print $spook;