#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Math::Round;

say 8.95 * 100;

printf("%.15f\n", 8.95 * 100);

printf("%f\n", 8.95 * 100);

printf("%d\n", 8.95 * 100);

printf("%d\n", round(8.95 * 100));

say int(8.95 * 100);

say int(round(8.95 * 100));

__END__