A D/perl////