1#!perl
2use strict;
3use warnings;
4
5do
6{
7    package Mr::Mastodon::Farm;
8    our $birds = 'fall';
9    my $window = 'ledge';
10};
11
12my $pre_lexical = 'alpha';
13our $pre_global = 'sheep';
14our $pre_global_safe = 'sheep';
15
16sub sandwich
17{
18    my $other_lexical = 'short skirt';
19    our $other_global = 'long jacket';
20}
21
22sub marine
23{
24    my $inner_lexical = 'parking';
25    our $inner_global = 'to';
26    my $pre_global = 'shadow stabbing';
27
28    die 'coping with scoping? or scoping the coping?';
29}
30
31my $post_lexical = 'beta';
32our $post_global = 'go';
33
34sandwich();
35marine();
36
37my $postcall_lexical = 'lot';
38our $postcall_global = 'heaven';
39
40