#!/usr/bin/perl


use strict;
use POSIX;
use DBI;

my $ctime;
my $now_string;


my $file = shift or die "No filename given.";


$ctime = (stat($file))[10];
#print "CTIME: $ctime\n";
$now_string = strftime "%Y-%m-%d %H:%M:%S", gmtime($ctime);
print "<TESTDATETIME>$now_string</TESTDATETIME>\n";

