$ perl -wle 'print -1 / (10 ** 5000)'
    -0
    $