package zor;
my $varry = "Hello world\n";
sub lol {
  print $varry;
}