use strict;
use warnings;


package Test;

my $test;

sub test :lvalue {
    return $test;
}

package main;

Test->test =5;

print Test->test;  #> 5