use strict;
use warnings;

use File::stat;
# Declare variables
my $filename;
my $FILE_HANDLE;
my $file_stat;
my $current_time;
my $diff_seconds;
$filename = shift;
# Open the file
open ($FILE_HANDLE, $filename)
or die "Can't open $filename: $!";