Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

use strict;
...
print "Accessed: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[8]
+)), "\n";
print "Modified: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[9]
+)), "\n";
print "Created: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[10]
+)), "\n";