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