#!perl -w
use strict; 
use POSIX;

my $file = $0; 
print strftime "Created: %Y-%m-%d %H:%M:%S", localtime ((stat $file)[10]);