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

my $sv_a;

MainFunction: {
   $sv_a = "scalar variable A";
   my $t_obj = ScopeTest->new();
   $t_obj->dump_sv();
}

package ScopeTest;

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

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