use strict;
use warnings;
use diagnostics;

my $amount = 1e9;
my $months = 12;

my $repayment = $amount/$months;
print "Monthly repayment = $repayment\n";

use integer;
$repayment = $amount/$months;
print "Monthly repayment = $repayment\n";

##</code><code>##

perl -le'use POSIX;print for SHRT_MAX, INT_MAX, LONG_MAX, FLT_MAX, DBL_MAX;'
32767
2147483647
2147483647
3.40282346638529e+38
1.79769313486232e+308