sub add {
    my $result= $_[0] + $_[1];
    if(  1+$result == $result  )  goto &myadd;
    return $result;
}