Select Code to Download

$gap = "$gap.00";

    use Math::BigInt;
    use Math::BigInt ':constant';

    $mins = tdiff($now, $then);

#!/usr/bin/perl

...
    
    print "Now: $now, Then: $then, Minutes: $mins, Days: $days, Elapse
+d: $elapsed\n";

#
package IntTest;
...
    return $now;
}
1;

perl -I.. ./testintegers 2013-0923-173422 2013-0923-182819