1 2 3 4 5 6 7 8 9 10 11 12 13
#!perl use strict; assign_name(); print_name(); sub assign_name{ our $name = "alice"; } sub print_name{ print $main::name."\n"; }
1
alice