$ perl test_tt_method.pl

The datum is 1 and the computed
result is 'compute() called with: 1'

The datum is 2 and the computed
result is 'compute() called with: 2'

The datum is 3 and the computed
result is 'compute() called with: 3'