#!perl
use strict;

assign_name();
print_name();

sub assign_name{
   our $name = "alice";
}

sub print_name{
   print $main::name."\n";
}