#!/usr/local/bin/perl
use 5.010;
use strict;
use warnings;

package ScopeTest;
 our $sv_a = "scalar variable A";

 sub dump_sv {
   print("DumpValue: sv_a ... $sv_a\n");
 }

 sub new {
   my $obj_hv = {};
   bless($obj_hv, $_[0]);
 }

package main;

MainFunction: {
   my $t_obj = ScopeTest->new();
   $t_obj->dump_sv();

   print("DumpValue: sv_a ... $ScopeTest::sv_a\n");
}