use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString qw($FORMAT);
$FORMAT   = '%a %Y-%m-%d %H:%M:%S %z';
print SECANA::TimeString::now().'\n';

Wed 2008-09-10 10:20:10 +0200