sub same_sign {
    $_[0]*$_[1] > 0
};

##</code><code>##

sub same_sign {
    $_[0]*$_[1] >= 0
};

##</code><code>##

sub same_sign {
   ($_[0] <=> 0) == ($_[1] <=> 0)
};