#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
use feature 'say';

use Math::Calc::Parser 'calc';

open my $in,  '<', 'numbers.txt';
open my $out, '>', 'sum.txt';
while (<$in>) {
    say $out calc $_;
}
close $out;
close $in;