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