#!/usr/local/bin/perl

print add(1,2);

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