#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

package mytest;

our $x = 42;

1;

package main;

print "Die Antwort auf Alles namens x ist $mytest::x", "\n";

1;