#!usr/bin/perl
use strict;
use warnings;
use File::stat;

# use Benchmark qw(:all) ; # WindowsOS
# use Benchmark::Forking qw( timethese cmpthese ); # LinuxOS

my $filename = 'one.xls';

my $sb = stat($filename);
printf "File is %s, size is %s, perm %04o, mtime %s\n",
    $filename, $sb->size, $sb->mode & 07777,
    scalar localtime $sb->mtime;

__END__

$ perl test.pl
File is one.xls, size is 5632, perm 0664, mtime Thu Jun  8 13:23:19 2017