use D;
my $d = D->new();
$d->print_d();