require 'test_03.pl';

my $result = SetVars();
foreach(keys %{$result}){
  print "$_ : ${$result}{$_}\n";
}