#!/usr/bin/perl -T
# Copyright (c) 1998 Moogle Stuffy, Inc. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
$|++;
use lib qw(../lib);
use CGI;
my $q = new CGI;
my $query_string = $q->query_string;
my $target = $q->param('noframes') ? '_top' : 'art_gallery';
# Update cookie + counter.
require "./sidetrack.pl";
my $cookie = sidetrack($q);
print $q->header(-cookie => $cookie) if $ENV{'SERVER_NAME'};
print <
Art Gallery -- Contents
HTML