#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $filename = 'test.txt';

my @array = stat($filename);

print Dumper \@array;

my $epoch_timestamp = (stat($filename))[9];

print "Epoch seconds: " . $epoch_timestamp . "\n";

__DATA__

$VAR1 = [
          64513,
          7741435,
          33188,
          1,
          283683,
          6856,
          0,
          0,
          1434023984,
          1434023978,
          1434023983,
          4096,
          0
        ];
Epoch seconds: 1434023978