#! /usr/bin/perl

use strict;

my $var = 'Hallo!';
test();
print 'Main: ',$var,"\n";

sub test{
  $var = 'Test';
  print 'Sub: ',$var,"\n";
}