At the Forge: Personalizing “New” Labels

Listing 5. travel.html

<HTML>
<Head>
<META HTTP-EQUIV="Set-Cookie"
  CONTENT="RecentVisitor=1;
  expires={scalar localtime(time + 604800};
  path=/">
<Title>Welcome to My Site</Title>
</Head>
<Body>
<H1>Welcome to My Site</H1>
<P>Read <a href="resume.html">my resume.</a></P>
<P>Read <a href="deathvalley.html">
{
    $outputstring = "";
    use CGI;
    my $query = new CGI;
    my $visited_recently = $query->cookie('RecentVisitor');
    $outputstring .= 
      "<font color=\"red\">(New!)</font>\n"
        unless $visited_recently;
    $outputstring;
}
   about my recent trip to Death Valley!</a></P>
</Body>
</HTML>