my $n = <D>; 

eval( Dumper($n) );

$n->show();
[download]

eval doesn't update $n in place here; it's still a plain string. Try:

my $n = <D>;

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