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