#!/usr/bin/perl
use warnings;
use strict;
my $var = "Hallo Welt";
BEGIN {
	print "innen: $var\n";
}
print "aussen: $var\n";