#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use SomeObject;

#is this needed?
local($/) = undef;

open(D, "data.txt");
 
my $n = <D>; 

eval( Dumper($n) );

$n->show();

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use SomeObject;

my $n = SomeObject->new(datta => "foo", data2 => "foo2");

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

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