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;