Select Code to Download

use strict;
use warnings;
...
my $modules = shift;
my $first_group = ceil($modules/2);0
printf "Call %d on port 80, %d on port 8080\n",$first_group,$modules -
+ $first_group;

$: perl divide.pl 8
Call 4 on port 80, 4 on port 8080
$: perl divide.pl 9
Call 5 on port 80, 4 on port 8080
$: