#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(gettimeofday tv_interval);

my $testdir = $ARGV[0];
my @filelist;

# Code example taken from Time::HiRes documentation
opendir(D, $testdir) or die $!;
    my $t0 = [gettimeofday];
    @filelist = readdir(D) or die $!;
    my $t1 = [gettimeofday];
closedir D;

my $t0_t1 = tv_interval $t0, $t1;

print q{Scan time for directory }, 
  $testdir, 
  q{ : },
  $t0_t1,
  qq{ seconds\n}; 
print q{Total entries in directory },
  $testdir,
  q{ : },
  scalar @filelist,
  qq{\n};