my $n1=new Number::Scientific(5500,3); #5500 w/ 3 significatn digits
my $n2=new Number::Scientific(3.141592,7) # pi w/ 7 siginificant digits
my $n3=$n1*$n2;
my $n4=$n2/$n1;
my $n5=$n1+$n2;
print "$n3 $n4 $n5\n";