Select Code to Download

$data_file="reff.data";
open(DAT, $data_file) || die("Could not open file!");
...
     print "$record";
}      
close(I);

$data_file="reff.data";
open(DAT, $data_file) || die("Could not open file!");
...
     print "$record2";
}      
close(I);