#!/usr/local/bin/perl

print add(1,2);

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