#!/usr/bin/perl -w
use strict;
use Math::BigFloat ':constant';
use Data::Dump qw/pp/;

print "150 / 0.75 == ", 150 / 0.75, "\n";
print "150.5->bfloor() == ", 150.5->bfloor() / 0.75, "\n";
print "150 / 3.75 == ", 150 / 3.75, "\n";
print "150.5->bfloor() / 3.75 == ", 150.5->bfloor() / 3.75, "\n";

my $float=3.1415926;
pp $float;
pp $float->bfloor();
pp int($float);