my $t = time;
sub print_t { print("$t\n"); }
print_t();
print("$t\n");

##</code><code>##

my $script = sub {

my $t = time;
sub print_t { print("$t\n"); }
print_t();
print("$t\n");

};

$script->();  # A page request
sleep(2);
$script->();  # A page request

##</code><code>##

1175021938
1175021938
1175021938  <- print_t still references the original $t
1175021940

##</code><code>##

my $script = sub {

our $t = time;
sub print_t { print("$t\n"); }
print_t();
print("$t\n");

};

$script->();  # A page request
sleep(2);
$script->();  # A page request

##</code><code>##

1175022050
1175022050
1175022052
1175022052