Nasty global variables

gistfile1.txt

#!/usr/bin/perl
package mytest;

our $global_var = "hello \n";

sub print_global_var {
    print $global_var ."\n";
}

package main;


&mytest::print_global_var;

$mytest::global_var = "bye\n";

&mytest::print_global_var;