#!/usr/bin/perl -w

use v5.30;
use strict;

use List::Util qw(sum);
say sum <>;
