sub edit {
 
 my $newline = join "\t", ($count_in,$current_time_in,$user_in,$password_in,$email_in,$web_in,$agencyname_in,$business_in,$country_code_in,$mobile_no_in,$sec_email_in,$skip);

 open FH, "$data_reg" or die "Can't open data_reg file for reading: $!";	
 flock (FH, 1) or die "Can't lock data_reg file for reading";
 my @alldata = <FH>;
 close FH;

 open FILE, '>', "$data_reg.tmp" or die "Can't open data_reg file for reading: $!";	
 flock (FILE, 2) or die "Can't lock data_reg.tmp file for writing";
 
  foreach (@alldata) {
    chomp;
    ($count,$current_time,$username,$password,$email,$web,$agencyname,$business,$country_code,$mobile_no,$sec_email,$skip) = split /\t/;
    if ($user_in eq $username) {
      print FILE "$newline\n";
    } else {
      print FILE "$_\n";
    }
  }
#  rename ("$data_reg.tmp", "$data_reg") or die "Can't rename file: $!"; ##only prints properly if commented out!
  &workspace(@exp);
  
  
}