#! perl -slw
use strict;
use Time::HiRes qw[ time ];

sub a{}
sub b{}

my $start = time;
$_ % 2 ? a() : b() for 1 .. 1e6;
printf "%.9f\n", time() - $start;
__END__
C:\test>junk99
0.275810003