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

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;

##</code><code>##

Argument "" isn't numeric in localtime at examples.pl line 13.