print mytest(), "\n";


{
    my $static;
    BEGIN {
        $static = "Persistant";
    }
    sub mytest {
        return $static;
    }
}