#!/usr/bin/perl
$ENV{PATH}='';
local our $o;
$o->{authenticated}=0;
local our $cookie;
local our $duration=600;
local our $r=new CGI;
local our $p=Vars;
...