This one has teeth

gistfile1.txt

root@dracul:/opt/build# /opt/perl-5.36.3/bin/perl -MConfig -MCpanel::JSON::XS -MData::Dumper -w ether_script_002.pl "[12391239123,0.00000001]"
$VAR1 = [
          bless( {
                   'sign' => '+',
                   'value' => bless( [
                                       '12391239123'
                                     ], 'Math::BigInt::Calc' )
                 }, 'Math::BigInt' ),
          bless( {
                   'sign' => '+',
                   '_es' => '-',
                   '_e' => bless( [
                                    8
                                  ], 'Math::BigInt::Calc' ),
                   '_m' => bless( [
                                    '1'
                                  ], 'Math::BigInt::Calc' )
                 }, 'Math::BigFloat' )
        ];
(inf, 12391239123)
$VAR1 = bless( {
                 'sign' => '+inf',
                 'value' => bless( [
                                     0
                                   ], 'Math::BigInt::Calc' )
               }, 'Math::BigInt' );
overflow? 1
2.003003
4, 16
$VAR1 = bless( {
                 'value' => bless( [
                                     '12391239123'
                                   ], 'Math::BigInt::Calc' ),
                 'sign' => '+'
               }, 'Math::BigInt' );
remainder: 12391239123
inverse: 100000000
product: 1239123912300000000
$VAR1 = bless( {
                 'sign' => '+',
                 'value' => bless( [
                                     '39123912300000000',
                                     12
                                   ], 'Math::BigInt::Calc' )
               }, 'Math::BigInt' );
product infinite? 0
product integer? 1