use DateTime;
use POSIX qw/strftime/;

print DateTime->
    now->
    set_time_zone ('Europe/Madrid')->
    strftime ("%Y %m %d, %H:%M:%S %Z\n");
print strftime "%Y %m %d, %H:%M:%S %Z\n", localtime;
__END__
2006 10 09, 14:57:36 CEST
2006 10 09, 14:57:36 CEST