package GlobalDefined; use GlobalDefined; our $PROJECT_GLOBAL_VAR1; print 'My global = >', pp($PROJECT_GLOBAL_VAR1), "<\n";