#!/usr/bin/perl 
            # cset.cgi - set a cookie 
            use CGI::Carp qw(fatalsToBrowser); 
            use CGI qw(:standard); 

            # check for cookie, if no cookie then check for referer
            # and set cookie 
            unless ($ENV{'HTTP_COOKIE'}) { # 1 
            if ($ENV{'HTTP_REFERER'} eq "") { 
            $referer = "None" 
            } 
            else { 
            $referer = $ENV{'HTTP_REFERER'} 
            } 
            $name = "Thanks"; 
            $to_set = cookie(-name => $name, 
            -value => $referer, 
            -expires => "+30d", 
            ); 

            print header(-cookie => $to_set); 

            }                               # 2 
            #print clear GIF 
            $image = "logo.gif"; 
            print img {src=>$image}; 

            <IMG SRC=$image>