#!/perl -wT

use strict;

my $foo = ""
our $bar = ""

sub foo {
  $foo = "hello";
}
sub bar {
  $bar = "world";
}

foo();
bar();

print "$foo $bar\n";