package Foo;

sub bar {}
sub zap {}

package main;

Foo::bar();
Foo::bar();
Foo::zap();
Foo::zap();

##</code><code>##

[adamm@twins adamm]$ perl -d:DProf test.pl 
[adamm@twins adamm]$ dprofpp tmon.out 
Total Elapsed Time = 0.009968 Seconds
  User+System Time = 0.019968 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00   0.000 -0.000      2   0.0000      -  Foo::bar
 0.00   0.000 -0.000      2   0.0000      -  Foo::zap

##</code><code>##

package Foo;
use strict;

sub bar {}
sub zap {}

package main;

Foo::bar();
Foo::bar();
Foo::zap();
Foo::zap();

##</code><code>##

[adamm@mustafa adamm]$ perl -d:DProf test.pl 
[adamm@mustafa adamm]$ dprofpp tmon.out 
Total Elapsed Time = 0.019937 Seconds
  User+System Time = 0.019944 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00   0.000 -0.000      3   0.0000      -  Foo::BEGIN
 0.00   0.000 -0.000      1   0.0000      -  strict::import
 0.00   0.000 -0.000      1   0.0000      -  strict::bits
 0.00   0.000 -0.000      2   0.0000      -  Foo::zap