#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
$|=1;  # turns buffering off on STDOUT so
       # error messages to unbufferred STDERR wind up
       # in the right time line order

my @directories_to_search = ('.', 'another dir here');

find( \&process_each_file, @directories_to_search );

sub process_each_file 
{
   return unless -f $_;   # only simple files (no dirs)
    
   print "$File::Find::name ctime: ", -C _, "\n";
   print "$File::Find::name mtime: ", -M _, "\n";
   print "$File::Find::name atime: ", -A _, "\n";
}