#    my $clock_t0 = clock();
my ($clock_t0, $clock_t1);
(undef, undef, $clock_t0, undef, undef) = POSIX::times();

...

#    my $clock_t1 = clock();
(undef, undef, $clock_t1, undef, undef) = POSIX::times();