use 5.20.0;
use warnings;
use experimental qw/
signatures
postderef
/;
use lib './lib';
use Entry;
use List::AllUtils qw/ sum /;
my @input = split / /, <>;
my $entry = Entry->new( stream => \@input );
say sum $entry->all_data;