use strict;
use warnings;
use POSIX;
use File::Spec;

my $inputFile = "inputFileInfo.txt";
my $outputFile = strftime( "resultsFile_%Y-%m-%d_%H-%M-%S.txt", localtime(time()));
my $pathToCheck = File::Spec->catfile( 'c:', 'temp' );

open( IN, '<', $inputFile ) or die "$inputFile: $!\n";
open( OUT, '>', $outputFile ) or die "$outputFile: $!\n";
while ( <IN> ) {
    chomp;
    my $checkFile = File::Spec->catfile( $pathToCheck, $_ );
    my @stats = stat $checkFile;
    if ( @stats ) {
        printf OUT ( "%s: %d, %s\n", $checkFile, $stats[7],
                     scalar( localtime( $stats[9] )));
    }
    else {
        print OUT "$checkFile: stat failed (file not readable or not found)\n";
    }
}