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