#!/usr/bin/perl use 5.14.2; use warnings; my ($x, $y) = split ' ', <>; print $x + $y;