package Obj;

use strict;

our $Name;

sub new {
    my $proto = shift;
    my $class = ref $proto || $proto;
    my $self = bless {}, $class;

    return $self;
}

sub test {
    my $self = shift;
    print "$Name \n";
}

package Test;

use strict;

our @ISA=("Obj");

$Name = 'Testing';

package main;

my $t = new Test;

$t->test;

##</code><code>##

#$Name = "Testing"; TO
our $Name = "Testing";

##</code><code>##

#$Name = "Testing"; TO
$SUPER::Name = "Testing";

##</code><code>##

#$Name = "Testing"; TO
$Obj::Name = "Testing";