my $n = <D>; 

eval( Dumper($n) );

$n->show();

##</code><code>##

my $n = <D>;

my $obj = eval $n;
$obj->show();