my $file="MY FILE";
my $create_seconds = ( stat($file) )[10];
$create_seconds = $create_seconds - 86400;
my $creation = ( ! defined ($create_seconds) ) 
   ? "null" 
   :POSIX::strftime( "%B %d", $modtime_seconds, 0, 0, 0, 0, 0, 0, 0, 0 );
print "File: $file   Created: $creation\n";

##</code><code>##

use POSIX qw(strftime);