$obj->date->year;  # or whatever, see perldoc DateTime