Help for this page
my $n = <D>; eval( Dumper($n) ); $n->show();
my $n = <D>; my $obj = eval $n; $obj->show();