$date =~ /^(\d\d(\d\d)?)\/(\d{1,2})\/(\d{1,2})$/
or die "unparsable date: $date"; #maybe we shouldn't die...
#$cdr->startdate( timelocal(0, 0, 0 ,$3, $2-1, $1) );
$date =~ /^(\d\d(\d\d)?)\/(\d{1,2})\/(\d{1,2})$/
or die "unparsable date: $date"; #maybe we shouldn't die...
#$cdr->startdate( timelocal(0, 0, 0 ,$3, $2-1, $1) );