#!/usr/bin/perl
use POSIX qw(strftime);
use Time::Local;
use Time::localtime;
use File::stat;
use warnings;

$CosMovFolder = '/Logs/Movies';

# sorting files based on modification date
opendir (DIR, $CosMovFolder);
     @moviedir=readdir(DIR);
     #$file1modtime = -M $moviedir[1]; # tried this, not working.  same uninitialized value error message
closedir(DIR);
    
     @moviedir = sort { -M "$CosMovFolder/$a" <=> -M "$CosMovFolder/$b" } (@moviedir); #sorting files by modification dates
     $latestfile = $moviedir[1];
     print "file is: $latestfile\n";
     open (FH,$latestfile);
     
      #$diff_mins = (stat($latestfile))[9];  #didn't work, same uninitialized value error message
      my $diff_mins = (stat(FH)->mtime); # Can't call method "mtime" on an undefined value error message
     print $diff_mins,"\n";
     close FH;