#!/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();