perl -Minteger -e 'print 15/2 + 1'
##</code><code>##

use strict;
use warnings;
my $eight = int (15 / 2 ) +1;
print $eight;