#!perl
use warnings;
use strict;
use 5.010;

my @file_info = stat($file);
print join "\n", @file_info;

my $timestamp = pop( @file_info );
print my $date = localtime $timestamp;