#!/perl -wT
use strict;
sub foo {
  my $foo = "hello";
}
sub bar {
  our $bar = "world";
}

foo();
bar();

print "$foo $bar\n";

##</code><code>##

#!/perl -wT

use strict;

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

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

foo();
bar();

print "$foo $bar\n";