#!/usr/local/bin/perl

print add(1,2);

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