open example, "$data_file" or die "can't open $data_file $!";
#write to the file
while ($data_file){
   print " test ";
   }
close (example);