#!/usr/bin/perl
use strict;
use warnings;

my $test = 'welt';

package X;
our $test = 'hallo';

package Y;
our $test = 'foo';

package main;
print $test;