#! /usr/local/bin/perl -w

use strict;

sub one {1}
sub two {2}

sub three { one + two }
print three, "\n"; # outputs 1

sub really_three { one() + two }
print really_three, "\n"; # outputs 3