#!/usr/bin/perl

use strict;
use warnings;

# To get time
my $currDate = time;

my $thisFile = "/path/to/file.name";

my $dev;
my $ino;
my $mode;
my $nlink;
my $uid;
my $gid;
my $rdev;
my $size;
my $atime;
my $mtime;
my $ctime;
my $blksize;
my $blocks;

# The get file info
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $thisFile;


print $dev ."\n";
print $ino ."\n";
print $mode ."\n";
print $nlink ."\n";
print $uid ."\n";
print $gid ."\n";
print $rdev ."\n";
print $size ."\n";
print $atime ."\n";
print $mtime ."\n";
print $ctime ."\n";
print $blksize ."\n";
print $blocks ."\n";
print "\n";
print $currDate . "\n";