#!/usr/bin/perl 
use strict;
use warnings;
open FILE, ">hoser.txt";
my @file_info = stat(FILE);
close FILE;

print join "\n", @file_info;

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

__END__
2054
1280089
33188
1
636
100
0
0
1233569457
1233569587
1233569587
4096
0Thu Jan  1 05:30:00 1970