gistfile1.txt

#!/usr/bin/env perl

package A::Test;
use strict;

my $v = 'original';

sub new {
    bless {}, shift;
}

sub get {
    $v;
}

package main;
use strict;

$A::Test::v = 'altered';

my $a = A::Test->new;
print $a->get, "\n";

__END__