use Macro ADD( x, y ) {
   x + y;
}

...

my $p = getPfromSomewhere();
my $q = getQfromSomewhere();
my $r = ADD( $p, $q );