http://www.misao.gr.jp/~koshian/?20050819S1 #!/path/to/perl use POSIX qw( strftime ); ( my $z = strftime( '%z', localtime) ) =~ s/(\d\d)(\d\d)/$1:$2/; print strftime( '%Y-%m-%dT%H:%M:%S', localtime ), $z, "\n";