Select Code to Download

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

sub printit {
    my $query = shift;
    print $query->h2('Current Results');
...
        print $query->hr();
    }
}