package T;

use strict;

sub foo {
}

1;

##</code><code>##

package U;

use T;

sub foo {
  T->foo;
}

1;

##</code><code>##

#!/usr/local/bin/perl

use strict;

use U;

U->foo() foreach (0..10000);

##</code><code>##

Total Elapsed Time = -0.04006 Seconds
  User+System Time =        0 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00   0.040  0.005  10002   0.0000 0.0000  U::BEGIN
 0.00   0.010 -0.005  10001   0.0000      -  T::foo
 0.00   0.000 -0.000      2   0.0000      -  main::BEGIN
 0.00   0.000 -0.000      2   0.0000      -  strict::import
 0.00   0.000 -0.000      2   0.0000      -  strict::bits
 0.00   0.000 -0.000      1   0.0000      -  T::BEGIN