Select Code to Download

if ($save == 1) {    
   my $where = tell(DATA);
...
   seek CONF => 0, 2;
   print CONF "Var1::$var1\nVar2::$var2\nVar3::$var3";
}