#!/usr/local/bin/perl

print "Content-type: image/gif\n\n";

if (($ENV{'REMOTE_HOST'} =~ /aol.com/) || ($ENV{'REMOTE_ADDR'} =~ /^152.163/))
{
    open(LOG, "/home/www/aolsucks/link/5-aoluser.gif");
    while (<LOG>) {
        print;
    }
    close(LOG);
}
else
{
    open(LOG, "/home/www/aolsucks/link/5-notaoluser.gif");
    while (<LOG>) {
        print;
    }
    close(LOG);
}