use Probeset;  # that is my module
use Data::Dumper;

my $store = Data::Dumper -> Dump ([$probeset], [qw(probeset)]);
open (DUMP, "> $file);
print DUMP $store;
close DUMP;

##</code><code>##

$probeset = bless( {
                     '_genechip' => 'Human Genome U133A Array',
                     '_probeset_id' => '1007_s_at',
                     '_affy_date' => '2004-12-07',
                     '_chipcode' => 'HG_U133A',
[ ...}
                     '_trans_id' => '????',
                     '_exons_num' => '????',
                     '_organism' => 'Homo sapiens'
                   }, 'Probeset' );

##</code><code>##

use Probeset;
open  (DUMP, "< $tempdump") or die "Can't open dumping file!";
my $obj='';
my $line;
while ($line = <DUMP>) {
	$obj .= $line;
}

my $probeset;
eval $obj;