#!/usr/bin/perl

use warnings;
use strict;

my $a = 7;
my $b = $a / 2;
print "$b\n";
my $c = sprintf("%d", $b);
print "$c\n";