or die "Can't open $filename $!";

##</code><code>##

use strict;
use warnings;

use File::stat;
# Declare variables
my $filename;
my $FILE_HANDLE;
my $file_stat;
my $current_time;
my $diff_seconds;
print "enter a file:\n";
$filename = <STDIN>;
chomp $filename;
# Open the file
open ($FILE_HANDLE, $filename)
or die "Can't open $filename: $!";

##</code><code>##

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: $!";