#sum.pl

sub sum{
 my($a,$b)=@_;
 my $res=$a+$b;
 return $res;
}
1;