Select Code to Download

#!/usr/bin/perl

...

    print "The different is " . $difference->decimal_val . ".\n";
}

$ perl 11137153.pl
Compare long tenth: TRUE
Compare short tenth: TRUE
The different is 5.55111512312578e-18.
$