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