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