#!/usr/bin/env perl use utf8; use Utils; use strict; use warnings; MAIN: { binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); binmode(STDIN, ":utf8"); foreach my $arg (@ARGV) { utf8::decode($arg); } my $a = Utils::stoiWithDefault($ARGV[0], 0); my $b = Utils::stoiWithDefault($ARGV[1], 0); my $c = $a + $b; print Utils::messageFormat("\{0:d\} + \{1:d\} = \{2:d\}", $a, $b, $c), "\n"; }