BEGIN { my $var; sub set_var { $var = shift; } sub var { $var; } }