Select Code to Download

use Probeset;  # that is my module
use Data::Dumper;
...
open (DUMP, "> $file);
print DUMP $store;
close DUMP;

$probeset = bless( {
                     '_genechip' => 'Human Genome U133A Array',
...
                     '_exons_num' => '????',
                     '_organism' => 'Homo sapiens'
                   }, 'Probeset' );

use Probeset;
open  (DUMP, "< $tempdump") or die "Can't open dumping file!";
...

my $probeset;
eval $obj;