my $n = <D>; 

eval( Dumper($n) );

$n->show();