Perl- d:o d:0 d:0.