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

my $test = 'Hallo';

{ 
package Test;
# package Variable in Test
our $test = 'Welt';
}

package main;
# Ausgabe beider Variablen
print join(' ', $test, $Test::test), "\n";