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