$time=$16;    # Time Sample

##</code><code>##

  @_1= split "\,",$16;

##</code><code>##

  if($#_1 eq 0){      
  $time = int ($time);
}

##</code><code>##

              
  if($#_1 eq 1){   
  $time=$_1[0];   
  $time=~ s/\,//g;
  $time*=1000;
}

##</code><code>##

  if($#_1 eq 2){   $time=1000;}
  if($#_1 eq 3){$time=1000;}