require A;
A->import('$var');
eval 'print $var; 1' or warn $@;