print "Total input is: $input\n";

my @nums = split(/\s+/, $input);

my $sum;
   $sum += $_ for @nums;

print $sum / @nums . "\n";