sub update_my_session {
   open(SDB, "/usr/local/...") || die;
   my @array = <SDB>;

   #---------------
   seek (SDB, 0, 0);
   #---------------

   flock INFILE, 1;
   for (@array) {
      chomp;
      print INFILE "$nickname|$time|$customer_id|$sid
";
   }
   flock SDB, 8;
   close(INFILE);
}