#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   big_float                                                        #
#                                                                           #
#  WHY:    Demonstrates the use of the Math::BigFloat library module.       #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Wed Oct  7 19:36:05 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

use Math::BigFloat;

$big = "999999999999.12345";

$f = Math::BigFloat->new( $big );
$g = $f->fmul( $big );

print "$big * $big = $g\n";