@field = split(/\./,$script);
   $script = $field[0]