use strict;
use warnings;
use CGI::Session;
use CGI qw( h1 p );
use CGI::Carp "fatalsToBrowser";

my $session = CGI::Session->new or die CGI::Session->errstr;

print $session->header();

if ( $session->param("visits") )
{
    print h1("Welcome back!");
    print p(
            sprintf("You've been here %d time%s.",
                    $session->param("visits"),
                    $session->param("visits") == 1 ? "" : "s",
                   )
            );
}
else
{
    print h1("Welcome first time visitor");
}
$session->param( visits => $session->param("visits") + 1 );