##
5
####
#!/usr/bin/perl -w
use warnings 'all';
use strict;
my $filename = 'numbers.txt';
open(N, '<', $filename);
chomp (my $numbers = );
my $sum = eval $numbers;
my $outfile = "sum.txt";
open FILE, '>'.$outfile;
print FILE $sum;
close FILE;