$ perl test.pl Number: 1 Number: 0 Number: 0 $ perl -d:DProf test.pl Number: 1 Number: 0 Number: 0