sub readit{ # should use a shared lock here open(READ,"guestbook.txt") || dienice("Couldn't open guestbook for reading: $!"); local $/; # slurp mode my @text = ; close READ: return split(/:/,@text); }