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