@lay:3473l5

Listing 5: travel

<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>
