#!/usr/local/bin/perl

my $answer = &add(1,2);
print $answer;


sub add{
return $result = ($_[0] + $_[1]);
}