[ACM]1001 A + B Problem

a+b

#!/usr/bin/perl use strict;
use warnings; use Data::Dumper;
use Term::ANSIColor qw(:constants);
while (<>)
{
my ($a, $b) = split;
print $a+$b . "\n"
}