#!/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::stodWithDefault($ARGV[0], 0); my $b = Utils::stodWithDefault($ARGV[1], 0); my $c = $a + $b; print Utils::messageFormat("\{0:f\} + \{1:f\} = \{2:f\}", $a, $b, $c), "\n"; }