use A;
use B;

$A_obj = A->new(16);
$B_obj = B->new(6);

my $n1 = $A_obj - $B_obj; # $n1 is an A object with value 10
my $n2 = $B_obj - $A_obj; # Fatal error