my $n = <D>;

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