open(DATA,"data.pl");
   while (<DATA>) {$data .= $_;}
close DATA;

eval $data;