#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Session;

my $SIDNAME = CGI::Session->name();
my $cgi     = CGI->new;
my $sid     = $cgi->cookie($SIDNAME) || $cgi->param($SIDNAME) || undef;

my $session = CGI::Session->load() or die CGI::Session->errstr();

my $logged = $session->param('loggedin');
if ($logged) {
    my $user     = $session->param('user');
    my $lasttime = $session->param('lastvisit');
    print $session->header, <<HTML;
	<h1>Varry Sekret Webpadge</h1>
	<p>Hello <i>$user</i>,<br>you visited us at <tt>$lasttime</tt></p>
	<p>Pictures : <a href="http://example.org/oaioi/lil-iiii.html">of Lilly</a></p>
HTML
}
else {    # Login
    print $session->header( -location => 'login.pl' );
}