Select Code to Download

#!/usr/bin/perl

...
eval( Dumper($n) );

$n->show();

#!/usr/bin/perl

...
open(D, ">data.txt");

print D Data::Dumper::Dumper($n);