use strict;
use warnings;

&Hello::printit;

package Hello;

sub printit;
our($b) = "Hello, world!\n";

sub printit {
  print $b;
}