#!/usr/bin/perl -w
use strict;

my $static = mytest();

print $static->();

# Lot more code

sub mytest {
    my $static = "Persistent";
    return sub { $static };
}