#!/usr/bin/perl use v5.14; use warnings; my ($a, $b) = split ' ', <>; say $a + $b