use Data::Dumper;
use XML::Parser;

printf "%02d.%02d.%04d",@datum;