#!/usr/local/bin/perl

print add(1,2);

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