#!/usr/bin/perl -w
use strict;

{

    package niceThing;

    our $compat = 4234;
    
    sub howdy {
        return qq|Howdy in package niceThing!|;
    }

}

package nonNiceThing;

our $compat = 4555;

sub howdy {
     return qq|Howdy in package nonNiceThing!|;
}

package main;

print niceThing::howdy();
print nonNiceThing::howdy();

print "\n$compat\n";
print "\n$niceThing::compat\n";