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