#!/usr/bin/perl

my $test = 'hallo';

test();

print $test, " - ", $hallo;

sub test{
    print "in test(): $test\n";
    my $hallo = 2;
}