This works correctly too:

#! /usr/bin/perl -w
use strict;
sub two {2}
printf "two + 2 = %d\n",(two) + 2;
[download]

Parens have precedence.