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

# lexikalische Variable in main
my $test = 'Hallo';

# package wechseln
package Test;

# package Variable in Test
$Test::test = 'Welt';

# package wechseln
package main;

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