#!/usr/bin/perl

use 5.010;
my $global;

sub set_global {$global = shift}
sub get_global {$global}
sub say_global {say $global}