script.pl

#
#   See also https://github.com/ReneNyffenegger/about-perl/blob/master/functions/stat.pl
#
use warnings;
use strict;

use File::stat;

use POSIX 'strftime';

my $s = stat($0);

print "Last modification time: ", strftime ('%H:%M:%S %d.%m.%Y', localtime ($s->mtime)), "\n";
print "Last access time:       ", strftime ('%H:%M:%S %d.%m.%Y', localtime ($s->atime)), "\n";
print "Last change time:       ", strftime ('%H:%M:%S %d.%m.%Y', localtime ($s->ctime)), "\n";