#!/usr/bin/perl -w
use strict;
use CGI ':standard';

my $pageref = 'hello';

# Refresh the cookie so that it doesn't expire.
my $perl_cookie = cookie(-name=>'referimg',
                     -value=>$pageref,
                     -expires=>'+30d');
print header(-cookie=>$perl_cookie);

my $file = "images/logonavy.gif";

open FILE, "$file" or die $!;
while (<FILE>) {
	print $_;
}